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AUTHOR : ROBERT F. WERY/JACK RICHARDSON/TERRENCE REILLY 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1983 BY DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MASSBUS 
DEC DECUS DECTAPE 
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1.0 


2.0 


SEQ 0002 
USER DOCUMENTATION TABLE OF CONTENTS 


GLOSSARY 
GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 


1.1.1 FUNCTIONAL yp tld 
1.1.2 as Aa OF PROGRAM 


1 
1.1.5 MEMORY MAP 
1.1.4 DIAGNOSTIC INFORMATION 
1.1.4.1 SCOP 
1.1.4.2 ERROR RECOVERY 
1.1.4.3 WRITE ERROR RECOVERY 
1.1.4.3.1 MED IA/OPERAT IONAL 
SELECTIVE WRITE-ERROR-RE 
1.1.4.3.2 OPERATIONAL WRITE-ERROR- 
1.1.4.4 DIAGNOSTIC TIMING ADJUSTMENT 
1.2 SYSTEM REQUIREMENTS 


1.2.1 HARDWARE REQUIREMENTS 
1.2.2 SOFTWARE REQUIREMENTS 


1.3 RELATED DOCUMENTS AND STANDARDS 
1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 
1.5 ASSUMPTIONS 

1.6 DIAGNOSTIC HISTORY 

OPERATING INSTRUCTIONS 

2.1 HARDWARE PARAMETERS 

2.2 SOFTWARE PARAMETERS 


2.2.1 TU80 COMMAND LIST 
2.2.2 DATA PATTERNS 


2.3 ‘EXAMPLES OF SOFTWARE PARAMETER DIALOGUE 
2.3.1 BASIC FUNCTION AND DATA RELIABILITY 
WITH ALL ERROR REPORTING ENABLED 
2.3.2 SCOPE LOOP SET UP IN BASIC FUNCTIONS 
2:3:3 SCOPE LOOP SET UP IN DATA RELIABILITY 
2.4 EXECUTION TIMES 


2.4.1 SYSTEM CONFIGURATION 
2.4.2 TEST EXECUTION TIMES 


ov 
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10 3.0 ERROR INFORMATION 

199 3.1 ERROR REPORTING 

103 3.1.1 ERROR #1 = COMMAND Bae ADDRESS IS NOT ON AM 
104 3.1.2 ERROR #2 = TU8O READY 

105 3.1.3 ERROR #3 = NO RESPONSE ERRORS 

106 3.1.4 ERROR #4 = NO INTERRUPT ERROR 

14 3.1.5 SPECIAL CONDITION ERRORS 

109 3.1.5.1 ERROR #5 - rece. UNDEF INED weit COND 
110 3.1.5.2 ERROR #6 = TCC1, ATTENTION CONDITION 
111 31.5.3 ERROR #7 = TCC2, TAPE STATUS ALERT 
112 31.5.4 ERROR #8 = TCC3, FUNCTION REJECT 

113 3.1.5.5 ERROR #9 = TCC4, RECOVERABLE ERROR 
114 3.1.5.6 ERROR #10- - RECOVERABLE ERROR 
115 3.1.5.7 ERROR #11= TCC6, UNRECOVERABLE ERROR 
138 : 3.1.5.8 ERROR #12= TCC7, FATAL SUBSYSTEM ERROR 
118 3.1.6 ERROR #13 = RFC NON-ZERO ERROR 

119 3.1.7 ERROR #14 = RETRY LIMIT EXCEEDED 

120 3.1.8 ERROR #15 = TOO MANY IN ath fn a 

121 3.1.9. ERROR #16 = CAPSTAN RUNAWA 

ise 3.1.10 ERROR #17 = DATA COMPARE ERRORS 

ist 3.2 ERROR HALTS 

is 4.0 PERFORMANCE REPORT 

iss 5.0 TEST SUMMARIES 

130 5.1 TEST 1 = BASIC FUNCTIONS 

131 5.2 TEST 2 = DATA RELIABILITY 

132 5.3 TEST 3 = WRITE AND READ STREAMING TEST 

133 5.4 3 3 4 - WRITE COMPATIBILITY/WRITE vie 

134 5.5 TEST 4 = READ COMPATABILITY/READ UTILITY 

ts 5.6 TEST 5 = EXECUTE OPERATOR SELECTED COMMAND SEQUENCE 

it 6.0 DEVICE INFORMATION 

139 6.1 GENERA 

140 6.2 UNIBUS- INTERFACE SPECIFICATIONS 

12 6.3 BIT DEFINITIONS FOR TU80 REGISTERS 

143 6.3.1 TU80 REGISTER SUMMARY 

144 6.3.2 TU80 STATUS REGISTER (TSSR) 

145 6.3.35 EXTENDED STATUS REGISTER 0 (XSTATO) 

146 6.3.4 EXTENDED STATUS REGISTER 1 (XSTAT1) 

147 6.3.5 EXTENDED STATUS REGISTER 2 g (XStATS? 

148 6.3.6 EXTENDED STATUS REGISTER 3 (XSTAT3) 


ov 
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GLOSSARY 
ACT 
APT 


BYTE/RECORD/FILE COUNT 
BRF 


CMD 
COMMAND PACKET 
CMDPKT 


EXTENDED STATUS 
MESSAGE PACKET 


PC 

PSW 

RESIDUAL FRAME COUNT 
RFC 


SPECIAL CONDITION 
SPEC COND 


TERMINATION CLASS CODE 
TCC 


TSBA 
TSDB 
TSSR 
XSTO 
XST1 
XST2 
XST3 
XXDP+ 


SEQ 0004 


AUTOMATED COMPUTER TEST SYSTEM 
AUTOMATED PRODUCT TEST SYSTEM 

IS STORED IN THE 4TH WORD OF THE COMMAND 
PACKET AND IT'S USE BY THE TU80 DEPENDS 
ON THE TYPE OF COMMAND. 

TU80 COMMAND (SEE 2.3.14.1 FOR LIST OF COMMANDS) 
FOUR WORD PACKET IN THE CPU MEMORY WHICH 
CONTAINS ALL INFORMATION NEEDED BY THE 
TU80 TO EXECUTE A COMMAND. 

FOUR WORDS OF TU80 STATUS WHICH ARE 
TRANSFERRED AS PART OF THE MESSAGE PACKET AT 
THE COMPLETION OF A COMMAND. 

SEVEN WORD PACKET IN THE CPU MEMORY INTO 
WHICH THE TU80 STORES STATUS AT THE 
COMPLETION OF A COMMAND. 

PROGRAM COUNTER 

PROCESSOR STATUS WORD 

THIS COUNT IS PART OF THE MESSAGE PACKET 
AND CONTAINS THE NUMBER OF BYTES/RECORDS 
/FILES REMAINING TO BE PROCESSED AT THE 
COMPLETION Or A COMMAND. 

TSS4 BIT15. WHEN SET, INDICATES THAT 
THE LAST COMMAND DID NOT COMPLETE WITH- 
OUT INCIDENT. 


THREE BIT CODE IN THE TSSR WHICH INDI- 
CATES THE TYPE OF COMMAND TERMINATION. 


TAPE SYSTEM BUS ADDRESS REGISTER. 
TAPE SYSTEM DATA BUFFER REGISTER. 
TAPE SYSTEM STATUS REGISTER. 
EXTENDED STATUS REGISTER 0 
EXTENDED STATUS REGISTER 1 
EXTENDED STATUS REGISTER 2 
EXTENDED STATUS REGISTER 3 


XXDP+ IS A ‘‘CATCH=ALL** NAME FOR A GROUP OF PDP-1 
DIAGNOSTIC PACKAGES AVAILABLE ON MULTIMEDIA. 


ov 
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1.0 GENERAL INFORMATION 


1.1 PROGRAM ABSTRACT 


1.1.1 FUNCTIONAL DESCRIPTION 


sees § 


a) 


ep b PROGRAM CAN BE USED AS A BASIC FUNCTION TEST, A DATA RELIABILITY 
T A COMPATABILITY TEST, OR TO EXECUTE A SEQUENCE OF OPERATOR 
SELECTED COMMANDS. 


1.1.2 STRUCTURE OF PROGRAM 


THIS DIAGNOSTIC IS A SINGLE PROGRAM 
FROM THE STANDPOINT OF THE DIAGNOSTIC USER, BUT IT CONTAINS A CONTROL 
MODULE RELFASED INDEPENDENTLY AS A DIAGNOSTIC SUPERVISOR. 


MEMORY MAP 


rororororerery 


rororor 
tO 2 
SOOWONAUSWNO 


; VECTOR ; 
: AREA : 
' ' 
i weeaeanrenwer nw re2ere2- ' 


STACK 


DIAGNOSTIC 


i DIAGNOSTIC ! 
i SUPERVISOR | 


FREE MEM SPACE FOR WR/RD a OR OTHER PUROSES 
IS ALLOCATED BY THE SUPERVISOR ON REQUEST OR CHOOSEN 
Sesstlson TO RESIDE BETWEEN THE DIAG AND THE 
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CZTUVB.P11 12-JUL-83 09:26 SEQ 0006 
soe 1.1.4 DIAGNOSTIC INFORMATION 
260 
so) 1.1.4.1 SCOPE 
263 THIS DIAGNOSTIC CAN TEST _UP TO 4 UNITS SIMULTANEOUSLY. THE 4 UNITS 
se ARE ASSIGNED LOGICAL UNIT NUMBERS 0 - 3 BY THE DIAGNOSTIC. 
$66 THERE ARE 6 TESTS IN THIS PROGRAM: 
268 TEST 1 = BASIC tg ig = 
269 $3 2 = DATA RELIABILITY 
270 T3 = WR AND READ STREAMING TEST. 
271 TEST 4 = WRITE COMPATABILITY/WRITE UTILITY. 
272 TEST 5 = READ COMPATABILITY/READ UTILITY. 
ste TEST 6 = OPERATOR SELECTED SEQUENCE UTILITY. 
sre 1.1.4.2 ERROR RECOVERY 
277 ERROR RECOVERY IS PERFORMED ON READ, WRITE AND aittae TAPE MARK 
278 ERRORS UNLESS RECOVERY IS INHIBITED BY THE OPERATOR. 
279 THE READ foe copoatie REVERSE RETRY a IS 16, (8 IN THE SAME DIRECTION 
280 AND 8 IN THE OPPOSITE DIRECTION). FOR MORE INFORMATION ON ERROR RECOVER 
3H PROCEDURES, SEE SECTION 3.0 (ERROR REPORTING). 
oH 1.1.4.3 WRITE ERROR RECOVERY 
285 THERE ARE 2 DISTINCT, SELECTABLE po bay ie ALGORITHMS : 
286 1. MEDIA/OPERATIONAL SELECTIVE ALGORITHM 
44 2. OPERATIONAL ALGORITHM 
289 BY DEFAULT THE DIAGNOSTIC SELECTS THE FIRST ALGORITHM TO DISCERN 
Soy MEDIA RELATED WRITE ERRORS FROM OPERATIONAL ONES. 
292 TO aie | THE a She ALGORITHM: 
293 ANSWER ‘Y* TO CHANGE SW (L) ? 
soe ANSWER rN! TO BAD TAPE SPOT DETECTION (L) Y ? 
296 WHEN ERROR RECOVERY IS INHIBITED, THE LATTER QUESTION IS NOT ASKED 
344 AND BOTH ALGORITHMS ARE BYPASSED. 
344 1.1.4.3.1 MEDIA/OPERATIONAL SELECTIVE WRITE-ERROR-RECOVERY ALGORITHM 
$2 SCOPE 
303 THE ALGORITHM DISCERNS MEDIA RELATED WRITE ERRORS FROM 
Soe OPERATIONAL ONES. 
44 ALGORITHM 
308 A WRITE RETRY SUBROUTINE IS CALLED BY THE RECOVERABLE ERROR SUBROUTINE 
309 ENTERED UPON DETECTIION OF A WRITE RECOVERABLE ERROR. 


310 THE WRITE RETRY SUBROUTINE REWRITES RECORD IN SAME SPOT ON TAPE: 
311 ev 4 TIMES. 

312 IF ALL 4 REPEATS ARE GOOD, RECORD IS CONSIDERED AS RECOVERED AND 
313 A RECOVERABLE WRITE ERROR IS LOGGED AT THAT RECORD NUMBER. 


H 1 
PARAMETER CODING MACY11 30(1046) 12-JUL-83 09:44 PAGE 6-1 Pi 
CZTUVB.P11 12=-JUL=83 09:26 SEQ 0007 Ci 


IF ANY OF THE 4 REPEAT FAILS, a3 Ay RECORD, LOG SUSPECTED 
AT RECORD NUMBER, v1 Ay Y AGAIN 3 INCHES FURTHER DOWN TAPE. 


Goausas | 
=o 
SOOONOUSE 


OR 
RETRY SUBROUTINE, WHICH REISSUES THE GROUP OF 4 
UNTIL THE RECORD IS RECOVERED OR 20 BAD SPOTS HAVE BEEN LOGGED . 


TWENTY (20) BAD SPOTS MAXIMUM ARE ALLOWED PER TAPE PASS. 
WHEN 20 BAD SPOTS HAVE BEEN LOGGED, ON SAME RECORD NUMBER OR NO 

TAPE IS CONSIDERED DEFECTIVE: A BAD TAPE OVERFLOW MESSAGE IS PRINTED 

AND UNIT IS REWOUND, THEN DROPPED. 


DURING Ma} H 45 yy PROCESS, IT IS NECESSARY TO PERFORM SEVERAL TAPE 
POSITION OPERATIONS: SPACE REVERSE, ERASE. IF A POSITION ERROR STATUS 
IS DETECTED DURING THOSE OPERATIONS, THEN THE RECOVERY ATTEMPT IS ABORTE 
AN APPROPRIATE UNRECOVERABLE MESSAGE IS PRINTED AND UNIT IS DROPPED. 


ALL BADLY WRITTEN RECORDS FLAGGED + hig eo ERRORS ARE ERASED 
UNTIL RECOVERED, eae y- THE RECORD AT THE 20TH BAD SPOT, 
oT — L RECORDS LEFT ON TAPE ARE coo WRITTEN RECORDS. 
ARE ERASED, WITH ERASE GAPS FROM 3 TO 12 INCHES PER RETRY GRO 
ERASE i abet RESULT WHEN RETRYING TO RECOVER 


IF NO BAD ° 
THAT LONG STRETCH OF BAD TAPE WOU BE ED WITH 20 
BAD SPOTS AT SAME RECORD NUMBER AND THE TAPE CONSIDERED DEFECTIVE. 


BAD SPOTS REPORTS 
IF THE PRINT OF RECOVERABLE ERRORS IS ENABLED, THE BAD SPOTS ON TAPE ARE 


IDENTIFIED AS THEY ARE DETECTED. SINCE THE BAD RECORDS ARE ERASED UNTIL 
THE BAD SPOTS AC CEDES THE RECORD NUMBER THAT yee THEM. 


THE ee oo ~~ Bae tt AT THE END OF TEST 2 OR UPON A oo - al RE 

CONTAINS A_SUMMARY E BAD SPOTS LOGGED ON THE CURRENT TAPE PASS. 

IN THAT REPORT, ALL oEOUN S_ARE CUMULATIVE FROM eae JO PASS, EXCEPT FOR 

THE NUMBER OF BAD S : S TO A “TAPE P. 
E PASS cnt TO EOT, OR FROM 


THE jy Bo 


THE NUMBER OF WRITE RETRIES, CUMULATIVE FROM PASS TO PASS, IS A GLOBAL 
COUNT OF HOW MANY TIMES THE GROUP OF 4 RETRIES HAS BEEN CALLED. 


THE NUMBER OF WRITE RECOVERABLE ge EXCLUDES BAD TAPE SPOTS 
AND aerLeer® THE SPECIFICATIONS OF THE HARDWARE UNDER TEST. 

PER TAPE PASS, THE NUMBER OF URITE RETRIES EQUALS THE SUM OF THE 
NUMBER OF RECOVERABLE WRITE ERRORS AND BAD SPOTS, MOST OF THE TIME. 


TO CLEAR CUMULATIVE COUNTS, ANSWER ‘Y® TO: CLEAR COUNTERS (LY Y ?. 
BAD TAPE SPOTS COUNT IS CLEARED WHEN WRITING FROM BOT. 
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IF TEST 2 IS HALTED, THEN RESTARTED OR CONTINUED, THE RECORD COUNT 
IS RESET TO ZERO AND THE BAD SPOT ID SHALL FOLLOW THAT RESET COUNT. 


SINCE ALL WRITTEN RECORDS ARE KNOWN GOOD, THE READ ERRORS CAN 
BE ATTRIBUTED TO TRANSIENT NOISE, TRANSIENT ELECTRICAL MALFUNCTIONS, 
OR CONTAMINANTS ON TAPE AS OPPOSED TO TAPE DEFECTS. 


THE SAME RECORDS MUST BE WRITTEN FORM TAPE PASS TO TAPE PASS 
FOR THE BAD SPOTS ID TO REMAIN CONSISTENT IN THOSE TAPE PASSES. 


EXAMPLE OF A TAPE PASS PRINTS: 

CZTUV SFT ERR 00009 ON UNIT 00 TST 002 SUB 000 PC: 012100 
RECOVERABLE ERROR 

WRT toy $ ah 0 PASS: 1 RECORD: 6 


CMDPKT TSBA_ RFC TSSR_ TCC 
100205 002406 000000 100210 4 
026600 
000000 
003107 


XSTO xST1 XST2 
000350 000002 100400 


SUSPECT BAD SPOT AFTER 3 RETRY, 
SUSPECT BAD SPOT AFTER 4 RETRY, 3 REPEAT 

RETRY FAILED ON BAD SPOT...ERASED! 

SUSPECT BAD SPOT AFTER 1 RETRY, 1 REPEAT 

CZTUV SFT ERR 00009 ON UNIT 00 TST 002 SUB 000 PC: 012100 
RECOVERABLE ERROR 

WRT oy $ a tt 0 PASS: 1 RECORD: 10210 


CMDPKT TSBA RFC TSSR_ TCC 
100205 002406 000000 100210 4 
026600 

0000 
xSTO XST1 ST2 
000350 000002 100010 000000 
ee ON RETRY # 1 
DR>PRI 
UNIT 0 PASS: 1___ RECORD:10210 
BYTES WRITTEN 0,272,279,691 
BYTES READ REV 0,301,123,654 
BYTES READ REV 0,301,120,381 

WRT RDR RDF 

RECOVERABLE ERRORS 1 0 
UNRECOVERABLE ERRORS 0 0 0 
WRITE RETRIES 3 


2 BAD SPOTS THIS TAPE PASS PRECEDING RECORD #: 
SPEC COND HARD FATAL COMPARE 
oR 2 0 0 0 
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SEQ 0009 


THIS EXAMPLE SHOWS: 
RECORD 6 RECOVERED ON 2ND RETRY GROUP 
THE 2 BAD SPOTS RESIDE IN A 18 INCH ERASE GAP BETWEEN RECORDS 5 
RECORD 10210 RECOVERED ON 1ST RETRY OF 4 GOOD REPEATS 
3 WRITE GROUP RETRIES ATTEMPTED RESULTING 
1 RECOVERABLE R FROM RECORD § 10210 
2 BAD SPOTS SETUEENT RECORDS § D 6 


1.1.4.3.2 OPERATIONAL WRITE-ERROR-RECOVERY ALGORITHM 


WHEN THIS ALGORITHM IS es THE TU8O WRITE RETRY COMMAND 
UE TO 16 TIMES UNTIL RECORD IS RECOVERED, ON 
WRI La Re OEN COMMAND CONSI 


1.1.4.4 


DOES NOT ALLOW TO DETECT BAD SPOTS ON TAPE. 
THEREFORE NO BAD TAPE SPOTS STATUS is PRINTED. 


IF RECORD CANNOT BE RECOVERED AFTER 16 WRITE RETRY COMMANDS, 
A RETRY LIMIT EXCEEDED IS FLAGGED AND UNIT IS DROPPED. 


DIAGNOSTIC TIMING ADJUSTMENT 


A NUMBER OF SUPERVISOR TIMING DELAYS MACROS, KNOWN AS WATCH DOG 
DELAYS, ARE CALLED BY THE DIAGNOSTIC TO WAIT FOR VARIOUS COMMANDS 
COMPLETION. THESE DELAYS ARE NOT CALIBRATED AND SIMPLY EXPANDS 


OUNT FOR THE OUTER LOOP 
COMES FROM THE VARIABLE ARGUMENT S 
iy Ms By THE INNER LOOP COMES FORM THE FIXED "HEADER’ 
AS THE DIAGNOSTIC IS RUN ON DIFFERENT CPU'S, THESE DELAYS WILL 
VARY IN LENGTH WITH MEMORY SPEED. 


IF TIME-OUT OCCURS WHEN NO APPARENT MALFUNCTIONS IN THE TAPE 

UNIT IS EVIDENT, ALL Bo A THE Rag ote MAY BE ADJUSTED 
TO MATCH MEMORY SPEED AND NOT RESULT IN TIME-OUTS, BY PATCHING 
THAT FIXED DELAY ELEMENT “‘LSDLY"’. 


A PRESET COUNT OF 000000 RESIDES AT ‘‘LSDLY'* IN LOCATION 2116 OF THE 
“HEADER’’ SECTION. 


1.2 SYSTEM REQUIREMENTS 


1.2.1 


HARDWARE REQUIREMENTS 


PDP-11 PROCESSOR WITH 16K OR MORE of MEMORY 
CONSOLE DEVICE (LA30,LA36,VT50,ETC.) 

PROGRAM LOAD DEV 

TU80 DRIVE AND UNIBUS ADAPTER MODULE 
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SEQ 0010 
1.2.2 SOFTWARE REQUIREMENTS 


DIAGNOSTIC SUPERVISOR 
1.3 RELATED DOCUMENTS AND STANDARDS 


XXDP+ USERS MANUAL MD-11 Tiatt 

DIAGNOSTIC SUPERVISOR PROGRAM LISTING 

PDP=11 DIAGNOSTIC SUPERVISOR INTERFACE SPECIFICATION. 
PDP=11 DIAGNOSTIC re tent tom ROGRAMMER'S GUIDE. 

TU80 PROGRAMMING SPECIFICATION. 

TU8O COMMAND PACKET SPECIFICATION. 


1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 


ORDER OF HOST CPU DIAGNOSTIC USAGE: 
1) CONTROL LOGIC PROGRAM - ALL TESTS. 
2) DATA RELIABILITY PROGRAM: 


A) BASIC FUNCTION TEST. 
B) DATA RELIABILITY TEST. 


1.5 ASSUMPTIONS 


THE HARDWARE OTHER THAN THE SUBSYSTEM BEING TESTED IS ASSUMED TO WORK 
PROPERLY. FALSE ERRORS MAY BE REPORTED IF THE PROCESSOR, MEMORY, ETC., 
DO NOT FUNCTION PROPERLY. 


1.6 DIAGNOSTIC HISTORY 


GINAL RELE 


REVISION - 23-MAR-83 =- ORIGINA EASE 
FIX TEST 3 FOR NEW SPEED ALGORITHM 


A I 
REVISION B = 17=APR-83 = Xx 
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2.0 OPERATING INSTRUCTIONS 


ae © nepeicte INSTRUCTIONS, PLEASE SEE CHAPTER 5 OF XXDP+ OPERATOR''S 


2.1 HARDWARE PARAMETERS 


ON A "'N'’ RESPONSE TO_‘'CHANGE HW?°', THE DIAG SHALL RUN ASSUMING 
ONE UNIT AT TSSR = 172522 WITH A VECTOR = 224. 


ON A _‘'Y’' RESPONSE TO ‘'CHANGE HW?'* QUESTION, THEN 

THE FOLLOWING QUESTIONS ae BE ASKED ON A START COMMAND. THE 
VALUE LOCATED TO THE LEFT OF THE QUESTION MARK IS THE DEFAULT 
VALUE THAT WILL BE TAKEN ON A CARRIAGE RETURN RESPONCE. 

TSSR ADDRESS (172522) ? 


VECTOR (224) ? 


THE VALIDITY OF THESE wy hey CAN BE CHECKED BEFORE RUNNING THE TESTS 
BY SETTING THE FLAG ‘‘ADR’’ ON A STA, OR 

THE ee CALLED AUTO DROP CODE SHALL THEN BE EXECUTED AFTER THE INIT CODE 

FORE THE HARDWARE TESTS ARE RUN. THAT CODE FIRST TESTS THE ADRRES 

E ). IF NO RESPONSE, IT DROPS THE UNIT(S) IMMEDIATELY 

WITH THE ha rte MESSAGE : 


T XXXXXX ( XXXXXX = TSSR AD ) 
BAD OR NOT 


INTERFACE SET TO ABOVE AD. 
ON A_ RESPONSE FROM THE INTERFACE, THE UNITS THAT ARE NOT READY OR NOT 
ON-LINE ARE DROPPED gts) * ane THE HARDWARE TESTS SHALL THEN 
BE RUN ON RESPONDING UNITS 


IF THE “‘ADR’’ FLAG IS NOT SET, THE READY AND OFF-LINE STATUS OF THE 

E CHECKED. A MESSAGE SHALL BE PRINTED EVERY SO OFTEN 
TO WARN THE OPERATOR OF UNITS BEING NOT READY OR OFF-LINE. THESE UNITS 
SHALL BE DROPPED AFTER A REASONABLE AMOUNT OF TIME (3 MIN ON A 11/70). 
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2.2 SOFTWARE PARAMETERS 


568 

569 THE FOLLOWING QUESTIONS ARE ASKED IF REQUESTED ON A START, RESTART, 
20 OR CONTINUE. THEY ALLOW FLEXABILITY IN THE WAY THE PROGRAM BEHAVES. 
272 CLEAR COUNTERS (L) Y ? 

57% RESET RANDOM VARIABLES (L) N ? 

576 PRINT RECOVERABLE ERRORS (L) N ? 

278 HALT AFTER EACH CMD (L) N ? 

580 INHIBIT RECOVERY (L) N ? 

382 BAD TAPE SPOT DETECTION (L) Y ? 

584 DISABLE INTERRUPTS (L) N ? 

386 INHIBIT RFC ERROR REPORTS (L) N ? 

388 CHANGE CMD SEQUENCE (L) N ? 

590 NOTE: THIS QUESTION SHOULD BE ANSWERED (N) UNLESS AN 
591 OPERATOR SELECTED SEQUENCE IS TO BE EXECUTED. 
592 IF THIS QUESTION WAS ANSWER ), NO MORE 
593 QUESTIONS WILL BE ASKED. IF THIS QUESTION WAS 
594 ANSWERED Y, THE FOLLOWING QUESTIONS MUST BE 
599 ANSWERED OR DEFAULTED WITH A <CR> ONLY: 

597 CHARACTERISTICS CODE (0) 40 ? (053 20,40, 200) (OCTAL) 
598 CMD/2 (D) 13 ? 1-37)" (DECIMAL) 
599 BRF COUNT (D) 1 ? 415k) (DECIMAL) 
600 # OF OPERATIONS (D) 1? (1-32k) (DECIMAL) 
601 PATTERN (D) 7 ? (0-8) (DECIMAL) 
602 CMD/3 (D) 4 ? (1-27) (DECIMAL) 
603 BRF COUNT (D) 2048 ? (1-2k) (DECIMAL) 
604 # OF OPERATIONS (D) 32000 ? (1-32k) (DECIMAL) 
605 PATTERN (D) 7 ? (0-8) (DECIMAL) 
606 CMD/4 (D) ; ? (1-27) (DECIMAL) 
607 BRF COUNT (D) 2048 ? (1-2k) (DECIMAL) 
608 # OF OPERATIONS (D) 32000 ? (1-32k) (DECIMAL) 
609 PATTERN (D) 7 ? (0-8) (DECIMAL) 
610 CMD/5 (D) é ? (1-27) (DECIMAL) 
611 RF COUNT (D) 2048 ? (1-2k) (DECIMAL) 
612 # OF OPERATIONS (D) 32000 ? (1-32k) (DECIMAL) 
613 PATTERN (D) 7 ? (0-8) (DECIMAL) 
614 CMD/6 (D) 13. ? (1-27) (DECIMAL) 
615 BRF COUNT (D) 1 ? (1-2k) (DECIMAL) 
616 # OF OPERATIONS (D) 1 ? (1-32k) (DECIMAL) 
617 PATTERN (D) 7 ? (0-8) (DECIMAL) 
618 CMD/7 (D) 27. ? (1-27) (DECIMAL) 
619 BRF COUNT (D) 2048 ? (1-2k) (DECIMAL) 
620 # OF OPERATIONS (D) 32000 ? (1=32k) (DECIMAL) 
621 PATTERN (D) 7 ? (0-8) (DECIMAL) 
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SEQ 0013 


CMD/8 (D) 27. (1-27) (DECIMAL) 
BRF COUNT (D) 3048 ? ( (DECIMAL) 
# OF ete ae (D) 32000 ? (DECIMAI ) 
PATTERN (D) 7 ? (0-8) (DECIMAL) 


NOTE: he Aye pre: gy tte og INSERTS AN CHARACTERISTIC 40 
FIRST COMMAND IN CE TABLE. 


COMMANDS, AN_END COMMAND D THEN 
CONTROL Z (*Z) CAN BE ENTERED TO TERMINATE SOFTWARE DIAL 
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SEQ 0014 


2.2.1 COMMAND LIST FOR USE IN SOFTWARE DIALOGUE. 


CODE 


WN —SCDOONOULWN—OCVOONG WUlwnr— 
nnnnnnnnnnnnnnnnne 


Nonononw PP Pm Pm Oe ee 


DESCRIPTION 
DRIVE add ayes 
READ FORWAR 
READ REVERSE. 
WRITE/VERIFY. IE. WRITE N RECORDS; READ REVERSE AND CHEC 
N ares OF Oe Om READ FORWARD AND CHECK N RECORDS. 


IE. SPACE FWD, READ REV. 

. READ FWD, SPACE REV. 

READ PREVIOUS FWD, IE. SPACE REV, READ FWD. 

READ PREVIOUS REV, IE. READ REV, SPACE FWD. 
WRITE RETRY. 


REWIND. 
MESSAGE BUFFER RELEASE. 
WRITE T MAR 


EAN TAPE 
yA eS tae tae WHERE BRF=200, 40, 


20, 0. 
E TAPE MARKS STOP (STOP AT LOGICAL EOT) 
40 = ENABLE ATTENTION INTERRUPTS. 
20 = ENABLE MESSAGE BUFFER RELEASE INTERRUPTS. 
SEE TU80 PROGRAMMING SPECIFICATION FOR DESCRIPTION. 


JUMP TO THE NTH COMMAND IN THE yy SEQUENCE 

TABLE, tg N IS DEFINED IN THE BRF FIELD. 

TH MBER OF JUMPS IS al poy IN THE # OF OPERATIONS FI 
erly W’’ MILISECONDS WHERE N IS DEFINED IN 
THE # OF OPERATIONS. THIS DELAY IS USED BETWEEN 

EACH EXECUTABLE COMMAND. 

END OF COMMAND SEQUENCE. 


2.2.2 DATA PATTERN LIST FOR USE IN SOFTWARE DIALOGUE. 


PATTERN # 


DWNAOULSWN oO 


DESCRIPTION. 
INCREMENTING PATTERN. 0 = 377. 
ri "*S PATTERN. 


L ‘O'S PATTERN. 
ah BIT WALKING FROM R T F O's. 


LD O 
TERNATE BYTES COMPL 


RANDOM DAT 
NO PATTERN GENERATION. 
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2.3 EXAMPLES OF SOFTWARE DIALOGUE 


2.3.1 BASIC FUNCTION AND DATA RELIABILITY WITH ALL ERROR REPORTING ENABLED 


A) RECEIVE PROMPT (DR>) 

B) ENTER STA/TES:1-2<CR> 

C) ANSWER HARDWARE QUESTIONS. 

D) PROCEED WITH THE FOLLOWING DIALOGUE: 


CHANGE SW (L) ? 
CLEAR COUNTERS (L) N ? 
ANDOM VARIABLES (L) N ? 


INHIBIT RFC ERROR REPO 
CHANGE CMD SEQUENCE (L) N ? 
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2.3.2 TO SET UP A SCOPE LOOP FOR A FAILURE IN BASIC FUNCTIONS. 


RECEIVE PROMPT (DR>) 

ENTER STA/TES:1/FLA:LOE: IER: ISR: IDU<CR> 
ANSWER HARDWARE QUESTIONS. 

PROCEED WITH THE FOLLOWING DIALOGUE: 


CHANGE SW (L) ? Y<CR> 
CLEAR add ay (L) N? Y<CR> 
RESET RAN ARIABLES (L) N<CR> 
PRINT RECOVERABLE ERRORS te - ? N<CR> 
TER EACH "a sex N<CR> 
INHIBIT necoveny N<CR> 
BAD TAPE SPO T DETECTION (L) Y? N<CR> 
S (L) N? N<CR> 

Y<CR> 

N<CR> 


2.3.3 TO SET UP A SCOPE LOOP FOR A FAILURE IN DATA RELIABILITY 


RECEIVE PROMPT (DR>) 

ENTER STA/TES: S/FLA: IER: ISR: IDU/EOP: 1000<CR> 
ANSWER HARDWARE QUESTIONS. 

PROCEED WITH THE FOLLOWING DIALUGUE: 


CHANGE SW (L) ? 
CLEAR COUNTERS (L) N ? 


CHANGE CMD SEQUENCE 
ees CODE (0) 40 ? 
BRF COUNT (D) 2048 ? 

# OF te te (D) 10 ? 


(REWIND) (COULD 


C 2 (WRITE) (COULD B 
BRF (D) 2048 ? 

# OF OPERATIONS (D) 10 ? 

a ge Ay 7? > 

CMD/4 (D) 5 ? (END) (COULD B 
BRF (D) 08 ? 
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2.4 EXECUTION TIMES 


2.4.1 SYSTEM CONFIGURATION 


PDP11/34 
MOS MEMORY 
LA36 


TUu80 


2.4.2 TEST EXECUTION TIMES 


TEST 1 = BASIC Ag igs - 30 SECONDS PER PASS. 
TEST 2 = DATA RELIABILITY = 45 MINUTES PER 


R 
TEST 5 = READ COMPATABILITY = 20 MINUTES PER PASS. 
TEST 6 = OPERATOR SELECTED SEQUENCE - DEPENDS ON SEQUENCE SELECTED. 


NOTE: ALL EXECUTION TIMES ARE SHOWN FOR ONE UNIT OEPRATION. 
APPROXIMATELY 10% WILL BE ADDED TO ALL EXECUTION TIMES 
FOR EACH ADDITIONAL UNIT EXCEPT WITH TEST 3, WHERE EACH 
ADDITIONAL UNIT ADDS 8 MINUTES TO THE EXECUTION TIME. 
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3.0 ERROR INFORMATION 


3.1 ERROR REPORTING 


ALL ERROR REPORTS EXCEPT FOR ERRORS #1 AND #17 INCLUDE A DUMP 
OF THE FOLLOWING INFORMATION: 


ERROR #, TEST #, SUBTEST #, PROGRAM COUNTER, UNIT #, 
COMMAND, PREVIOUS COMMAND, PASS C ‘ 0 
RECORDS FROM BOT, RECORD READ COUNT, THE COMMAND PACKET, TSSR, 
eC. TSBA FC, AND THE EXTENDED STATUS REGISTERS 

2.3. ig’ 1 FOR LIST OF COMMANDS). 


STANDARD ERROR REPORT FORMAT: 


CZTUV SFT ERR XXXXX_ TST XXX SUB XXX PC: XXXXXX 
(ASCII ERROR MESSAGE) 

XXX CMD FAILED = UNIT X PASS: NN RECORD: XXXXX 
PREVIOUS CMD WAS XXX * RECORD READ: XXXXX * 
CMDPKT TSBA RFC SSR__ TCC 

XXXXMK XMXXXXX XAAXXAXKX MXXAXXX XK 

XXXXXX 

XXXXXX 

XXXXXX 

XSTO XST1 xXST2 XST3 

XXXMXX XAXXXXX MXXXXX AXA 


813 
814 
815 
816 
817 
818 


* CAUTION * 

INTERPRET THAT “RECORD READ** COUNT WITH CAUTION. 
IF VERY DIFFERENT FROM RECORD COUNT TRACKED BY THE DIAGNOST 
POSITION IS NOT NECESSARELY LOST. ERRORS IN READING THAT 
READ PROM TAPE CAUSED RECORD COUNT TO BE ERRONEOUSLY 

IF pag eda’ IS RESTARTED OR CONTINUED, RECORD 
is RESET TO ZERO ALTHOUGH TAPE WAS NOT REWOUND. THIS IS 
NECESSARY BECAUSE THERE IS NO ACCURATE WAY TO DETERMINE 
ON WHAT RECORD COUNT OF WHAT UNIT THE DIAGNOSTIC WAS HALTED 
BEFORE RESTARTING OR C 


ONT INUING. 
IT IS SUGGESTED THAT A ‘PRINT’’ BE REQUESTED WHEN HALTING DI 
TO GET A PRINT OF THE RECORD COUNT WHEN HALTED. 


EXAe!.E OF AN ERROR REPORT: 
CZTUV SFT a 00009 TST 002 SUB 000 PC: 010606 
Ae RROR 
WRT CMD FAILED = UNIT 2 PASS: 2 RECORD: 254 
roeyrees oe CMD we Ma ree 
100005 002524 000000 190210 4 
51766 


0 
000000 
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3.1.1 


3.1.2 


3.1.3 


3.1.4 


5.1.3 


3.1.5.1 


SEQ 0019 C2 


XSTO.} = XST1 XST2._XST3 
000350 000002 100004 000000 


ERROR #1 = COMMAND PACKET ADDRESS NOT ON A MODULO 4 BOUNDRY: 


IF THIS ERROR IS REPORTED, THE PROGRAM DID NOT LOAD PROPERLY. 
rs te OT saison: FATAL ERROR AND THE PROGRAM MUST BE RELOADED TO 


ERROR #2 = TU80 NOT READY: 


BEFORE ANY COMMAND IS ISSUED TO re sag THE SUBSYSTEM READY 

BIT IN THE TSS4 IS CHECKED. IF THE SSR IS_NOT SET, THE PROGRAM 
REPORTS THE NOT READY ERROR. THIS IS A FATAL DEVICE ERROR AND 
Le A BE DROPPED FROM THE TEST SEQUENCE UNLESS THE IDU 


ERROR #3 = NO RESPONSE ERROR: 


ONCE THE TSDB IS LOADED, THE TU80 HAS ONE MILLISECOND y? va 
OR THE PROGRAM REPORTS A_NO RESPONSE ERROR. THIS IS AF 

DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST SEQUENCE 
UNLESS THE IDU OPTION IS USED. 


ERROR #4 = NO INTERRUPT ERROR: 


COMMAND WAS ISSUED AND NO INTERRUPT waite THE yoneyte REPORTS 
THAT NO INTERRUPT OCCURRED. THIS IS A FATAL DEVICE ERROR AND 

THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU 
OPTION IS USED. 


SPECIAL CONDITION ERRORS: 


IF, DURING emer AN ie ald OCCURS FORCING THE TSSR 
SPECIAL CONDITION BIT TO SET, THE PROGRAM WILL SELECT ONE OF 
I page HANDLING ROUTINES, DEPENDING ON THE TERMINATION CLASS 


THE TERMINATION CLASS CODES IN THE TSSR ARE PROCESSED AS FOLLOWS 
WHEN SPECIAL CONDITION IS SET: 
ERROR #5 = TERMINATION CLASS CODE 0, UNDEFINED SPECIAL CONDITION 


THE ERROR IS REPORTED, A HARD ERROR IS LOGGED 
AND THE PROGRAM PROCEEDS NORMALLY. 


3.1.5.2 ERROR #6 - TERMINATION CLASS CODE 1, ATTENTION CONDITION 
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3.1.5.3 


3.1.5.4 
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SEQ 0020 
THIS TCC yd tel ty THAT THE DRIVE HAS UNDERGONE A STATUS CHANGE 
SUCH AS GOING OFFLINE OR COMING ONLINE. THIS IS A FATAL DEVICE 
ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS 
THE IDU OPTION IS USED. 
ERROR #7 = TERMINATION CLASS CODE 2, TAPE STATUS ALERT 


A STATUS CONDITION HAS BEEN ENCOUNTERED THAT mg 4 tay SIGNIFICANCE 
TO THE PROGRAM. BITS OF Hs I Te ecu S, LET, RLL, EOT. 


E UTED. 
IF THE CONDITION IS UNEXPECTED, THE ERROR IS REPORTED _ 


ERROR #8 = TERMINATION CLASS CODE 3, FUNCTION REJECT 
THE SPECIFIED FUNCTION ~ NOT ee A. ree tt INTEREST ARE 


LC, WLE, ILA IS A_FATAL 
DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE 
UNLESS THE IDU OPTION IS USED. 


31.5.5 ERROR #9 = TERMINATION CLASS CODE 4, RECOVERABLE ERROR 


3.1.5.6 


3.1.5.7 


3.1.5.8 


TAPE POSITION IS ONE RECORD BEYOND WHAT ITS POSITION WAS WHEN 
THE FUNCTION WAS INITIATED. RECOVERY PROCEDURE IS TO LOG THE 
ERROR AND ISSUE a APPROPRIATE RETRY COMMAND. IF RETRY LIMIT 
IS REACHED BEFORE THE ERROR IS RECOVERED, RETRY LIMIT EXCEEDED 
IS REPORTED AS DESCRIBED IN ERROR #14 BELOW. 


ERROR #10 = TERMINATION CLASS CODE 5, RECOVERABLE ERROR 


TAPE POSITION HAS NOT CHANGED. RECOVERY PROCEDURE IS TO LOG THE 
ERROR AND RE-ISSUE THE ORIGINAL COMMAND. IF RETRY LIMIT IS 
REACHED BEF ORE THE ERROR IS RECOVERED. RETRY LIMIT EXCEEDED 

IS REPORTED AS DESCRIBED IN ERROR #14 BELOW. 


ERROR #11 = TERMINATION CLASS CODE 6, UNRECOVERABLE ERROR 


TAPE POSITION #25 BEEN LOST. THE ONLY VALID RECOVERY PROCEDURE IS TO 
REWIND AND STARi OVER AT BOT UNLESS THE TAPE HAS LABELS OR SEQUENCE 
ees IF DENSITY CHECK IS SET THIS DIAGNOSTIC WILL REWIND oe 

RETRY THE COMMAND, OTHERWISE THIS IS A FATAL DEVICE ERROR AND THE 

DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED 


ERROR #12 = TERMINATION CLASS CODE 7, FATAL SUBSYSTEM ERROR 


THE SUBSYSTEM IS INCAPABLE OF tats PERFORMING cores OR A 
LEAST ITS INTEGRITY IS SERIOUSLY QUESTIONABLE. REFER TO THE 
FATAL cL Oss CODE FIELD IN THE TSSR REGISTER FOR ADDITIONAL INFOR- 
MATION ON THE TYPE OF FATAL ERROR. THE DEVICE WILL BE DROPPED 
FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 
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ERROR #13 = RFC NON-ZERO ERROR: 


IF, AFTER EXECUTION, Y sans Eka FRAME COUNT IS NON-ZERO, THE 
ERROR IS REPORTED AND A HARD ERROR IS LOGGED. THE PROGRAM THEN 
i) tia LLY. THE REPORTING AND LOGGING OF THESE ERRORS 


ERROR #14 = RETRY LIMIT EXCEEDED: 


ON A WRITE COMMAND THIS IS A FATAL DEVICE ERROR AND THE DEVICE 
WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 


ON A READ COMMAND THIS ERROR IS LOGGED AS A HARD ERROR AND 
THE PROGRAM PROCEEDS NORMALLY. 


ERROR #15 = TOO MANY INTERRUPTS: 


IF MORE THAN ONE INTERRUPT OCCURS PER COMMAND, THIS ERROR , — 
THIS IS A FATAL DEVICE ERROR AND THE DEVICE WILL BE DROPPED F 
THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 


ERROR #16 = CAPSTAN RUNAWAY: 


CAPSTAN sa NOT STOP WITHIN ACCEPTABLE ae AFTER LAST 

THE PROGRAM WILL ISSUE A GET STATUS COMMAND BEFORE REPORTING 
THE ERROR SO THAT THE DEAD TRACK FIELD IN EXTENDED STATUS REGISTER 2 
WILL CONTAIN THE TACH COUNT WHEN THE TAPE ST 
THIS IS A FATAL DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM 
THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 


ERROR #17 = DATA COMPARE ERROR: 


IF A DATA VALIDATION ERROR OCCURS DURING A WRITE/VERIFY COMMAND, 
THE og PRINTS WHAT THE DATA SHOULD HAVE ie AND WHAT THE 
DATA W PRINTS THE BYTE AND RECORD NUMBER THEE ERROR OCCURRED 
ON. ONLY THE FI E PRINTED. 

THE TOTAL # OF BYTES ER RE PRINTED. 

HARD ERROR IS LOGGED AND THE PROGRAM PROCEEDS NORMALLY. 


3.2 ERROR HALTS 


ERROR HALTS ARE SUPPORTED PER oe cnreee IN THE PREVIOUS SECTION 
WITH /FLAG:HOE. THERE ARE NO OTHER HALTS. 
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SEQ 0022 
4.0 PERFORMANCE REPORT 


UNIT PASS:XXXXX RECORD: XXXXX 
BYTES. WRITTEN XXX XXX, AXAK XXX 

BYTES READ REV XXX XXX XXX XXX 

BYTES READ FwD HX JOO OO aon 


RECOVERABLE ERRORS XXXXX XXXXX 
UNRECOVERABLE ERRORS XXXXX XXXXX 


SPEC COND HARD FATAL COMPARE 
MXXMK = -MXXXM = MXMXM —_ AXAXK 


5.0 TEST SUMMARIES 


5.1 TEST 1 = BASIC FUNCTIONS. 
EXECUTES AND VERIFIES CORRECT COMPLETION OF ALL TU80 FUN 


SUBTEST 1 = ser CHAR, DRIVE eet A STATUS. 
+ SET Tati. C 200. 


+ DRIVE INITIA Ate 
+ SET po tema 20. 


+ GET STATUS 
+ SET CHARACTERISTIC 40. 


SUBTEST 2 = are 
REWIND. 
: REWIND AT BOT. 


SUBTEST 3 = WRITE/VERIFY. 
+ WRITE/VERIFY PATTERN 1. 


TE/VERIFY PATTERN 5. 
ITE/VERIFY PATTERN 6. 
+ WRITE/VERIFY PATTERN 0. 


SUBTEST 4 = WRITE TAPE MARK, ERASE. 
E TAPE 


E MA 
+ WRITE TAPE MARK “RETRY. 


SUBTEST 5 = SPACE FILES. 
2 EVERSE. 
2 ORWARD. 
r EVERSE. 
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+ SPACE 2 FILES FORWARD. 
SUBTEST 6 = a ae 
+ SPACE 7 RECORDS FORWARD. 


ee 


SoooessoseS 232 
DION RUN— OOONOM 


RD. 

+ SPACE 7 RECORDS REVERSE. 
SUBTEST 7 WRITE RETRY. 
+ REWIND. 


+ WRITE DATA. 
+ WRITE RETRY. 


SUBTEST 8 READ REV RETRY. 
+ READ REVERSE. 
+ READ NEXT REVERSE. 
+ READ NEXT FORWARD. 


SUSTEST 9 READ FWD RETRY. 
+ READ FORWARD. 
+ READ PREVIOUS FORWARD. 
+ READ PREVIOUS REVERSE. 


SaRSREEEES 


SUBTEST 10 


SUBTEST 11 = WRITE/VERIFY SWAPPED DATA BYTES. 
+ WRITE/VERIFY EVEN LENGTH (RECORD 1). 
/VERIFY ODD LENGTH (RECORD 2). 
+ SET DATA BYTE Sw 


SWAP. 
+ WRITE/VERIFY EVEN LENGTH (RECORD 3). 
+ WRITE/VERIFY ODD LENGTH (RECORD 4). 
+ CLEAR DATA BYTE SWAP. 


SUBTEST 12 = READ SWAPPED DATA BYTES. 
READ REV RECORD 4. 


SESFSZESSESE 


RARALLS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ee ee ee eed ed eed ed ed od ed 
=o00 

CODON 

-~e+7e¢+te ee + + + 


COR 
READ FWD RECORD 4. 
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1 
1 
1 
1 
1 
1 
1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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5.2 TEST 2 = DATA RELIABILITY. 


1. THE TAPE IS INITIATED WITH THE FOLLOWING COMMANDS: 
AY CHARACTERISTIC 40 


EWIND 
URITC/VERIFY 31 RECORDS OF RANDOM LENGTH AND DAT 
TE AND READ COMMAND ; } tee AY eave AND 


R ITH RAND 
LENGTHS AND OM PATTERN UNTIL END OF TAPE IS REA 
3. 2 THE END OF EACH PASS, A REWIND COMMAND IS ISSUED 
PERFORMANCE REPORT IS PRINTED. 


NOTE: IF A RESTART COMMAND IS USED TO INITIATE 
TEST 1, THE INITIAL REWIND COMMAND IS NO 


5.3 WRITE AND READ STREAMING TEST. 
1. REWINDS ALL UNITS, THEN ON EACH UNIT: 
>>> REPEAT TWICE <<< 


RERARAEREEEREREEEEREREEEEEREREEERERERREREEEEREEEEE. REREEE 


2. ov be PATTERN 5 i. 7000 = 1 KBYTE RECORDS. 
3 THE SPEED AL N_ THE Ls Ae WILL a. 100 IPS S 
4 


DS 
READ oer FOR 3500 RECORDS AT 25 IPS STREAMING. 
WRITE A TAPE MARK 


RERAEAEAAAEEEAEAAAEREREAAEREREEEREEEEEEEEREEEREREEEAEEEEEE 
>>> END REPEAT <<< 


NOTE: ag he! RECORDS OF 1000(10) BYTES ARE WRITTEN AND 
ON EACH ITERATION. 


5.4 TEST 4 = WRITE COMPATABILITY/WRITE UTILITY. 
REWINDS AND WRITES RECORDS OF RANDOM LENGTHS 
AND RANDOM DATA FROM BOT TO EOT. 
5.5 TEST 5 = READ COMPATABILITY/READ UTILITY. 
REWINDS AND READS ENTIRE TAPE, FORWARD AND REVERSE. 


5.6 TEST 6 = EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 


THE SEQUENCE OF yore ENTERED BY THE ir eee 
IS EXECUTED. IF NO COMMANDS WERE ENTERED, 

DEFAULT —<o OF REWIND/WRITE/READ REV/READ FWD/REWIN 
OF ENTIRE TAPE IS EXECUTED WITH RANDOM PATTERN 

AND RECORD LENGTH OF 2048 BYTES. 
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1168 6.0 DEVICE INFORMATION TABLES 

1171 

1172 6.1 GENERAL 

1175 THE ie SUBSYSTEM IS A REEL-TO-REEL TAPE TRANSPORT WITH AN INTEGRATED 
1176 F APTER MODULE CONNECTS THE DRIVE TO ANY P 

1177 WITH "iNieus. THE SUBSYSTEM READS AND WRITES AT EITHER 25 OR 100 IPS 
1178 D RECORDS AT 1600 BPI, PHASE ENCODED, ANSI STAN FORMAT. 

1179 SPEEDS OF 25 00 IPS ARE AUTOMATICALLY SELECTED BY THE CONTROLLER 
1180 CORDING TO A SPEED ALGORITHM WITHIN THE CONTROLLERS* FIR ° 
1181 HOST SOFTWARE MAY SELECT THE / IPS SPEED; THE 25 IPS SPEED IS NOT 
1182 USER=SELECTABLE. IN ADDITI Ma DRIVE IS MICROPROCESSOR CONTROLLED 
1183 AND HAS SELF-CONTAINED LOGIC AND FUNCTIONAL DIAGNOSTICS. THE ADAPTER 
4 MODULE ENABLES THE TU80 TO BE 100% P PROTOCOL COMPATIBLE WITH THE TS11. 
1s OPERATIONALLY, THE TU80 IS UNIQUE IN A NUMBER OF WAYS: 

1188 A. ONLY ONE REGISTER MAY BE WRITTEN = TSDB (TAPE SYSTEM 

24 DATA BUFFER), 

1191 B. TWO REGISTERS MAY BE READ = TSSR AND TSBA (TAPE SYSTEM STATUS 
1138 REGISTER AND TAPE SYSTEM BUS ADDRESS REGISTER), 

1194 C. COMMANDS ARE NOT WRITTEN TO THE na ti RATHER, COMMAND 

1195 POINTERS ARE WRITTEN WHICH POINT TO COMMAND PACKETS SOME- 

1196 WHERE IN CPU MEMORY. THE COMMAND POINTER IS USED BY 

1197 THE TSO4 SUBSYSTEM TO FETCH THE WORD(S) WITHIN THE COMMAND 

Hb PACKET. THE WORDS WITHIN THE COMMAND PACKET ARE: 

1200 1. COMMAND WORD 

1201 2. LOW ORDER BUFFER ADDRESS 

1202 53. HIGH ORDER BUFFER ADDRESS 

17 - BYTE COUNT 

1205 D. THE TSSR CONTAINS ALL THE tesa WHICH WILL BE NEC- 

1206 ESSARY TO DETERMINE WHET 

1207 1. THE DRIVE IS READY To ACCEPT ANOTHER COMMAND, 

1208 2. THE PREVIOUS COMMAND WAS EXECUTED “gig ERROR. 

1209 IF EITHER OF THE ABOVE CONDITIONS IS UNTRUE AT °'JOB DONE*’ 

1210 OR “COMMAND INITIATION’’ TIME,IT MAY BE NECESSARY 

1211 TO GET THE EXTENDED STATUS REGISTERS TO DETERMINE WHAT 

ict¢ ACTION IS TO BE TAKEN AND/OR LOG THE ERROR INFORMATION. 

1214 E. EXTENDED STATUS REGISTERS / a! retur® DIRECTLY FROM 

1215 DRIVE REGISTERS; RATHER, ‘GET STATUS’ COMMAN 

1216 IS iSSUED WHICH WILL CAUSE THE 1080 TO_ TRANSFER EXTENDED 

1217 STATUS INFORMATION TO THE MEMORY AREA POINTED TO BY THE 

1218 BUFFER ADDRESS OF THE ‘‘GET STATUS'* COMMAND. THERE ARE FOUR 

ist) EXTENDED STATUS REGISTERS. SEE 6.3. 

1221 F., THE TSOB MUST BE WRITTEN WITH A DATO INSTRUCTION TO 

1222 oe eg WRITE THE COMMAN INTER. ATOB WILL 

1223 CAUSE A MAINTENANCE FUNCTION. A DATO TO THE TSSR WILL CAUSE 

1224 SUBSYSTEM INIT. 
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"1225 
1226 G. COMMAND PACKETS MUST RESIDE ON DIVIDE BY FOUR 
1227 MEMORY BOUNDARIES (AS OPPOSED TO DIVIDE BY 2 OR WORD 
1228 BOUNDARIES). 
1230 6.2  UNIBUS INTERFACE SPECIFICATIONS 
1232, 
1233 INT. UN1BUS 
iSte TUu80 VECTOR ADDRESS REGISTER 
1236 
1237 . FIRST 224 772520 TSBA/TSDB 
1238 772522  ~+=TSSR 
1240 SECOND FLOAT 772524 TSBA/TSDB 
igt) 772526 TSSR 
1243 THIRD FLOAT 772530 TSBA/TSDB 
1264 772532  TSSR 
1246 FOURTH FLOAT 772534 TSBA/TSDB 
1247 772536  =TSSR 
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6.3 BIT DEFINITIONS FOR TU80 REGISTERS 


TU80 REGISTER SUMMARY 


MMVVNVy 
FARIS 


15 


teort 
'A15! 
; | 
es 
'p15! 
: > @ 
too-~t+ 
{SC ! 
' 

to--+ 
to==+ 
'TMK! 
ze. 
pooad 
!DLT! 
; § 
sy 
!OPM! 
' ' 


taeced 
; 


0 
1 


14 13 12 


a et ry 
tAIGIA131A12! 
> er es 
'1P14!P13!P12! 
ef. ek 
$onetonntonet 


eo 
'RLS!LET'RLL! 
SS ie. 
: : COR: CRS: 


'SIP!BPE!CAF! ! 
wd ee ee 


11 10 09 


Ce 
1A17!A10!A09! 
mwa 
teoetoomtonn} 
'P11!P10!P09! 
ie Se oe 
1NXM NBA? A17! 
'WLE!NEF SILC! 
' ' ' 1 
; {oor 7 
; 8 
'WCF! 
' ' 


pew an poee per = +$ 


MICRO DIAGNOSTIC ERROR CODE 


TERMINATION CLASS CODES (TSSR TCO-TC2): 


FUNCTION 


UNRECOVE 


NORMAL TERMINATION 
ION 


OM START _OF 


D TAP. 

RECOVERABLE ERROR = TAPE NOT MOVED 

RABLE ERROR = TAPE POSITION LOST 
FATAL CONTROLLER ERROR 


FATAL CLASS CODES (TSSR FCO-FC1): 
ICRO DIAGNOSTIC FAILURE ae IN TU80 OPERATOR PANEL AND 


0 
1 
2 


M 
ie SEQUENCER 


CROM PARITY 


08 07 06 


1A08: A07: A06: 
gunnhousgeus> 
!P08!P07!P06! 
eo ot ke 
'A16!SSR!OFL! 
Pe RS 
fILA! =! ONL! 
. 2S a 


! !DTP!DT7!DT6! 
eee OS 


1 10PI! 
' 


Lalit CROM PARITY ERROR. 


SILO P 


05 04 03 


toon tenntennt 
1A05 1 A041A03: 
> or oe 
1P05: P04: P03: 
peentennpenns 
‘FCITIFCO!TC2! 
wR eS ee 
teen teontonnt 


'IE !VCK!PED! 
Be oe ee 
i] ‘ ‘ J 
Poe e 4 
!DTS!DT4!DT3! 
er oe re 


:REV: jocn 


REJECT 
pg tm ae ERROR ~ TAPE POSITION = ONE RECORD 
OWN E FR _ TION 


TY ERROR. 
SERIAL BUS PARITY ERROR DETECTED AT TU80 fae 
eh BUS goog ERROR DETECTED AT TSO4 ( 
ROR H IN TS04 PROGRAA. EQUNTER DISPLAY. 
LOSS OF AC POWER NAS BEEN DETECTED. 


FATAL ER 


1750-1777 


02 01 


teoeetoo 
1A02:A0 
gocepoe 
:P02:P1 
pocegoe 
'TCIITC 
' ‘ 

a 


foosfon 
:WLK : BO 
fewofon 
{ — !UN 
> §CR 
poecatus 
!DT2!D0T 
oe 

poocwpfos 


: «LX 


Gunnden 
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WWWINANWNNAWWWWWNAW 


mee ee ee ee ee ee ee ee ee ce ce ed ced ed ee ed ed ed ed etd ed ed 
Pfeteteietedetuteteiepehete 
DIRAR M—OVDONOUS 


WONOUSWN—O”O 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


RARRRGRAAAAEERESEES EE 


SODMNOMEWN—O 
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SEQ 0028 


6.3.2 TU8O STATUS REGISTER (TSSR) 


UNIBUS ADDRESS + 2 = READ ONLY 


15 


14 13 12 


11 10 09 08 07 06 05 04 03 C2 o 


Hewat tometewetenet toenteseteest toonteseteest teenten=tennt 
:SC : : UPE « SPE: RMR : ‘on ee wet ‘hoe inet he “ad those Soe tTc1 TC! 


BIT 


15 


NAME TCC 


sc s 


NOT USED 
NOT USED 
RMR Ss 


DEFINITION 


SPECIAL CONDITION. WHEN ie 
THE LAST D 
Hath 1h 


INDICATES THAT 
COMMAND DI COMPLETE WITHOUT 

ee ieee TTHER AN ERROR WAS 
AN EXCEPTION CONDITION OCCURRED. 

E TAPE MARKS ON READ 


WRITING, ETC. MAY_ALSO BE SE 
BITS CONTAINED IN THE TSSR REGISTER: UPE, SPE, 

RMR, AND NXM. THE TERMINATION CLASS BITS ARE SOME 
OTHER THAN 0 (UNLESS RMR IS THE ONLY ERROR = SEE RM 


REGISTER MODIFICATION REFUSED. SET BY THE = 
WHEN COMMAND POINTER IS LOADED INTO TSDB AND 
SUB-SYSTEM READY (SSR) IS NOT SET 


NOT ENABL toe THis IT_COM UP_IS AN INDI 
4 EITHER A FATAL CONTROLLER ERROR OR A SOFTWARE 


NON-EXISTENT MEMORY. SET BY THE TUSO WHEN 


MAY OCCUR WHEN I 
THE COMMAND PACKET, FETCHING OR STORING DATA, 
OR STORING THE MESSAGE PACKET. 


NEED BUFFER ADDRESS. WHEN SET, INDICATES THAT 

THE TSO4 NEEDS A A_ MESSAGE BUFF FER AD ADDRESS. THIS 
BIT IS CLEARED DURING THE SET CHARACTERISTICS 
COMMAND (IF A GOOD ADDRESS WAS GIVEN). 


BUS ADDRESS BIT 17. A17 AND A16 (BIT 08) TRACK 
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CZTUVB.P11 
1361 


sige 
wr 


SSESeE 


| 
-—oo 


ee ed ed wd wd I I 
WW 


TTT TPT TeTeT 
BESS Ree IIIS 


aN2S 


Oo 


1 
1 
1 
1 
1 
1 
1 
1 
1389 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SWUM 
RAR 


S38 


12-JUL-83 09:26 


) 
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SEQ 0029 


THE VALUES OF BITS 17 AND 16 OF THE TSBA 
REGISTER. 


BUS ADDRESS BIT 16. SEE A17 (BIT 09). 


SUB-SYSTEM READY. WHEN SET, INDICATES THAT THE 
TU80 SUBSYSTEM IS NOT BUSY AND IS READY TO 
ACCEPT A NEW COMMAND POINTER. 


OFF-LINE. WHEN SET, rt ee THAT THE TS04 IS 
OFF-LINE AND VAILABLE FOR ANY TAPE MOTION 
COMMANDS. THIS BIT CAN CAUSE A TERMINATION CLASS 
OF 1 (ON ATIN INTERRUPT) OR 3 (RESULTS IN NEF). 


FATAL TERMINATION CLASS 01. FC1 AND FCO (BIT 
04) ARE USED 10 INDICATE THE TYPE OF tl Lt 
ERROR WHICH HAS OCCURR = THE S04. THESE 
BITS ARE VALID ONLY WHEN SC IS SET AND THE 
TERMINATION. CLASS CODE BITS ARE ALL SET (111). 

FATAL TERMINATION CLASS 00. SEE FC1 (BIT 05). 


a a. Car CLASS BIT ¥- THIS BIT, ALONG WITH 
THE TC1 AND TCO BITS, ACT AS AN OFFSET VALUE 
er ge AN _— OR EXCEPTION 

C ACH OF _ THE 


I . 
PROVIDED IN FIELD IS EXPECTED TO 
UTILIZED AS AN OFFSET INTO A DISPATCH TABLE FOR 
HANDLING OF THE CONDITION. 
TERMINATION CLASS BIT 01. SEE TC2 (BIT 03). 
TERMINATION CLASS BIT 00. SEE TC2 (BIT 03). 


NOT USED. 


UNIBUS ADDRESS + 2 = WRITE ONLY 


SUBSYSTEM INITIALIZE 
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POMNONOPONoPy 2 2 SS OO 
ONAOVSWN—O OONOUEWNO 


a a kk ek ed td ed td 
mr 


BUORAVRARAA SESS SS SSS 


E 
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12=JUL=83 09:26 


6.3.3 


EXTENDED STATUS REGISTER 0 (XSTATO) 


15 14 13 12 1110 09 08 07 06 O05 04 03 02 01 


TMK « tRLS‘LET:RLL: (WLE ‘NEF «ILC: 1 TLA:MOT ‘ONL « .1E :VCK + PED: :WLK ‘BOT: 


BIT NAME TCC DEFINITION 


15 «TMK $.2 TAPE MARK DETECTED. = WHENEVER A TAPE MARK 
WAS DETECTED DURING READ, SPACE, OR SKIP 
COMMAND AND AS A RESULT OF THE WRITE TAPE MARK 
OR WITE TAPE MARK RETRY COMMANDS. 


THIS BIT Lad i — 


K 
THE POSITION COUNT WAS EXHAUSTED, OR A 
TAPE MARKS COMMAND WAS _ TERMINATED 
ENCOUNTERING BOT OR A DOUBLE TAPE MARK (IF THAT 
OPERATIONAL MODE IS ENABLED, SEE LET) PRIOR TO 
EXHAUSTING THE POSITION COUNTER. 


LOGICAL END OF TAPE. SET ONLY ON THE SKIP TAPE 
MARKS COMMAND WHEN EITHER TWO CONTIGUOUS TAPE 
MARKS ARE pe Teeve OR WHEN MOVING 

AND THE FIRST REC 


UNLESS THIS E OF TERMINATION NABL 
THROUGH USE OF THE SET CHARACTERISTICS COMMAND. 


RECORD LENGTH LONG. WHEN SET, THIS BIT 
INDICATES THAT THE RECORD READ WAS LONGER THAN 
THE BYTE COUNT SPECIFIED. 


WRITE LOCK a WHEN SET, INDICATES THAT 
WRITE Pe etAte D BUT THE MOUNTED T 


DID NOT CONTAIN A L 
LOCK SWITCH ACTIVATED DURING THE OPERATION. 


NON-EXECUTABLE FUNCTION. WHEN SET, INDICATES 
THAT THE COMMAND COULD NOT BE EXECUTED DUE TO 
ONE OF THE FOLLOWING CONDITIONS: 


- THE COMMAND SPECIFIED REVERSE TAPE 
DIRECTION A a THE TAPE WAS ALREADY 
POSITIONED AT BOT. 

- THE ISSUING OF ANY COMMAND, EXCEPT REWIND, 
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eee em ee me ee ee ed eed ed eed od ed od od 
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SUANRWVIOSBNEARH 


— et es os I 


eter ber bt et pee pe 
oo 
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NOT USED 


ONL 


IE 


S 


s 


SEQ 0031 


UNLOAD, OR A COMMAND WITH THE CLEAR VOLUME 
gir tse BIT SET, WHEN THE VOLUME CHECK 


Y COMMAND, EXCEPT GET ere. oR DRIVE 
INITIALIZE, WHEN THE TSO4 IS OFF-LINE. 
ANY WRITE COMMAND WHEN THE TAPE DOES NOT 
CONTAIN A WRITE ENABLE RING (WRITE LOCK 
STATUS = WLS). 


ILLEGAL COMMAND. SET WHEN A COMMAND IS ISSUED 
AND EITHER ITS COMMAND FIELD OR ITS COMMAND 
MODE FIELD CONTAINS CODES WHICH ARE NOT 
SUPPORTED BY THE TS04. 


ILLEGAL ADDRESS. (MORE THAN 18 BITS OR ODD WHEN 


AN EVEN ADDRESS IS REQUIRED.) 


ON LINE. WHEN SET, INDICATES THAT THE TSO04 IS 
ON-LINE AND OPERABLE. 


INTERRUPT ENABLE. REFLECTS THE STATE OF THE 
oe ENABLE BIT SUPPLIED ON THE LAST 


VOLUME CHECK. WHEN SET, INDICATES THAT THE 
DRIVE HAS BEEN EITHER POWERED DOWN OR re 

“LINE. ae BY THE CLEAR VOLUME CHECK 
(CVC) BIT IN THE COMMAND HEADER WORD. THIS BIT 
CAN CAUSE A TERMINATION CLASS OF 3. 


PHASE ENCODED DRIVE. Rn SET, INDICATES THAT 
THE TS04 I ABLE READING AND WRITING ONLY 
DATA. WHEN RESET, ‘ 


D 
DATA CAPABILITIES. 


WRITE LOCKED. WHEN SET, INDICATES THAT THE 
MOUNTED REEL OF OES NOT HAVE A 
WRITE-ENABLE RING INSTALLED. THE TAPE IS, 
THEREFORE, WRITE PROTECTED. 


BEGINNING OF TAPE. WHEN SET, INDICATES THAT 
THE TAPE IS POSITIONED AT THE LOAD POINT AS 
3 ia BY THE BOT REFLECTIVE STRIP ON THE 


END OF TAPE. — BIT IS SET WHENEVER THE TAPE 
IS_ POSITIONED OR BEYOND THE END OF TAPE 
wake’ nave STRIPS. DOES NOT RESET UNTIL THE 

APE PASSES OVER THE REFLECTIVE STRIP IN THE 
REVERSE DIRECTION UNDER PROGRAM CONTROL. 
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CZTUVB.P11— 12=JUL=83 09:26 ; SEQ 0032 
13 
1388 6.3.4 EXTENDED STATUS REGISTER 1 (XSTAT1) 
1397 
1528 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 
1530 SLT? 3 scomicns: § wer! «1 2 t FT ¢ ¢ s¢¢ 'UNC! 
1531 } ; . ;§ & ; re  ¢ #3 ; 8 ' 3 'cRC! 
1533 
1534 
1535 BIT NAME TCC DEFINITION 
; 338 — eases oem Saw Dmeowa sa 
1538 15 OLT 4 DATA LATE. SET WHEN THE I/O SILO IS FULL ON A 
1539 READ OR EMPTY ON A WRITE. THESE CONDITIONS 
1540 OCCUR WHENEVER THE UNIBUS LATENCY EXCEEDS THE 
133 DATA TRANSFER RATE OF THE TS04. 
ot 14 - - NOT USED. 
1545 13. ~COR Ss CORRECTABLE DATA. IN PHASE ENCODED MODE, A 
1368 CORRECTABLE DATA ERROR HAS BEEN ENCOUNTERED. 
1548 12. CRS 4 CREASE DETECTED. FOR NRZI, ALL DATA_ TRACKS 
1549 DROPPED OUT FOR MORE THAN THREE CHARACTER TIMES 
1550 BUT FOR LESS THAN .1 INCHES OF TAPE. FOR PE, 
1551 EIGHT OUT OF NINE DATA TRACKS WENT DEAD FOR 
1552 LESS THAN .1 INCHES BEFORE A VALID POSTAMBLE 
1553 WAS DETECTED. 
1554 
1333 11. NOT USED 
1557 10 DBF 4 DESKEW BUFFER FAIL: THIS BIT IS SET WHEN ONE OF THE 
1558 DESKEW BUFFERS FAILS TO SET OUTPUT READY WITHIN 20 
1559 MICROSECONDS AFTER BEING ENABLED. THE DEAD TRACK 
1360 BITS INDICATE ON WHICH TRACKS THIS FAILURE OCCURRED. 
1562 09 NOT USED 
1563 
1564 08 NOT USED 
1565 
1566 07 NOT USED 
1567 
1568 06 NOT USED 
1569 
1570 05 NOT USED 
1571 
1572 04 NOT USED 
1573 
1574 03 NOT USED 
1575 
1576 02 NOT USED 
1577 
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v1 


UNC 


4 


UNCORRECTABLE DATA. SET ON PE DRIVES WHEN A 
PARITY ERROR OCCURRED WITHOUT A CORRESPONDING 
DEAD TRACK INDICATION. 


CRC ERROR. SET ON NRZI DRIVES WHEN THE CRC 
CHARACTER WAS FOUND TO BE IN ERROR. 


Sot te ERROR. SET ON PE DRIVES WHEN MORE 
AN ONE DEAD TRACK OCCURRED IN THE PREAMBLE OR 
IN THE DATA FIELD. 


VERTICAL PARITY ERROR. SET ON NRZI DRIVES Mw 
Oe le DID NOT CONTAIN AN ODD NUMBER 0 


SEQ 0033 
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1593 6.3.5 EXTENDED STATUS REGISTER 2 (XSTAT2) 


1597 15 14 13 12 11 10 09 08 07 06 05 04 O03 02 O1 


1599 ~ ‘yet whe ont wed ij ‘ak eed ee se ie tg peraiert 


SESSGSLISS 


NAME TCC DEFINITION 


OPM s OPERATION IN PROGRESS. (TAPE MOVING) 


SIP 7,F2 SILO PARITY ERROR. CAUSES FATAL CLASS 2 BECAUSE THE 
ERROR MIGHT HAVE OCCURRED DURING THE TRANSMISSION OF THE 
MESSAGE PACKET. 


BPE SET BY Mey 
TU8O WHEN A_ PARITY E 
TRANSMITTED FROM THE ADAPTOR D TO THE 
CLASS 2 BECAUSE THE ERROR MIGHT HAVE OCCURRED DURING 
THE TRANSMISSION OF THE MESSAGE PACKET. 


ors ACCELERATION FAIL. AFTER ACCELERATING 
APE FOR .2 INCHES, THE TAPE SPEED WAS CHECKED 
AND FOUND TG BE OUT OF TOLERANCE BY MORE THAN 


> ss 
Se SAFER AESRCERT 


tt ot 
SUODNOUSWN—O 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


aa 


NOT USED. 
ne WRITE BOARD IS_NOT EMPTYING THE 19 SILO 

THE PROPER RATE. THIS ERROR CAN BE THE RESULT "oF 
THE WRITE BOARD CLOCK NOT BEING TURNED ON (BROKEN 
HARDWARE). 
NOT USED. 
DEAD TRACK PARITY. THE BITS DTP_ THROUGH Py 

TR AD _— Hf 


QEREAG 


INDICATE WHICH CHANNEL FAILED. 
DEAD TRACK 7. SEE DTP. 
DEAD TRACK 6. SEE DTP. 
DEAD TRACK 5. SEE DTP. 
DEAD TRACK 4. SEE DTP. 
DEAD TRACK 3. SEE DTP. 


SEPPLESRR AL, 
ONOUSWIY-O 0 
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SEQ 0035 


02. oT2 DEAD TRACK 2. SEE DTP. 
01 +=ooT1 Ss DEAD TRACK 1. SEE DTP. 
00 pT0 Ss DEAD TRACK 0. SEE DTP. 
NOTE: ~ or SFT ae ge ey wire THE UCODE LEVEL IS_ RETURNED 


HRU A GET STATUS COMMAND, THE RESIDUAL CAPSTAN 
TICK COUNT (INTERNALLY R7) IS RETURNED IN DT7 THRU DTO. 
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g i 


6.3.6 EXTENDED STATUS REGISTER 3 (XSTAT3) 


$85 


15 14 13 12 1110 09 08 07 06 O05 04 O03 O02 O1 


; MICRO DIAGNOSTIC ERROR CODE : ‘he a ‘eee ‘ : : 


SESSES 


BIT NAME TCC DEFINITION 


15 TO 08 7 MICRO DIAGNOSTIC ERROR CODE. THERE IS ONE OPERATIONAL 
ERROR. 337(8) OR LEFT JUSTIFIED TO 157400(8) IN A 

16-BIT REGISTER (CAPSTAN RUNAWAY), IS DISPLAYED 

S MEANS THA 


HERE. THI WAS COMMANDED 
STOP BUT EXCEEDED THE NG WINDOW. DRIVE 
MUST BE INITIALIZED TO BE USED FOR TAPE MOTION AGAIN. 


— a Se 
SITAALSS 
CONAUSWN oO 


SEESS 


NOT USED 


OPERATION INCOMPLETE. SET WHEN A READ 
OR SKIP OPERATION HAS MOVED 25 F FEET OF OF 
WITHOUT DETECTING ANY DATA ON THE TAPE 


DIRECTION OF CURRENT OPERATION WAS REVERSE (BUT 
IS 0 IF REWIND OR FORWARD) 


ey ABE 


SESE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


o 
oO 
— 


NOT USED 


DCK $.6 DENSITY CHECK. SET ON PE DRIVES WHEN 
IDENTIFICATION BURST W 
MOVING OFF OF BOT. SET ON NR 
NON-NRZI IDENTIFICATION BURST WAS FOUND WHEN 
MOVING OFF OF BOT. 


NOT USED 

NOT USED 

RIB 2 REVERSE INTO BOT. A_READ, SPACE, OR SKIP 
COMMAND ALREADY IN PROGRESS HAS ENCOUNTERED THE 


BOT MARKER WHEN MOVING TAPE IN THE REVERSE 
DIRECTION. TAPE MOTION WILL BE HALTED AT BOT. 
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-TIILE PROGRAM HEADER AND TABLES 
-SBTTL PROGRAM HEADER 


.ENABL ABS,AMA 
= 2000 


++ 
3: THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
: THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


POINTER BGNRPT ,BGNSW,BGNSF T ,BGNAU,BGNDU,BGNSETUP 


OF get CZTUV,.6, o. ryeods 1, INTPRI 
NOSTIC NAME 
eASCII /C/ 


103 
132 
124 
125 
126 


eASCII /V/ 
YTE 


000 BY 

000 BYTE 
LSREV:: sREVISION LEVEL 

102 ASCII 
LSDEPO:: 30 

060 ASCII 
LSUNIT:: sNUMBER OF UNITS 

000001 


LSTIML:: sLONGEST TEST TIME 
005000 

LSHPCP:: sPOINTER TO H.W. QUES. 
027202 

LSSPCP:: sPOINTER TO S.W. QUES. 
027254 

LSHPTP:: ;PTR. TO DEF. H.W. PTABLE 
002176 

LSSPTP:: sPTR. TO S.W. PTABLE 
002204 

LSLADP:: sDIAG. END ADDRESS 
030670 

LSSTA:: sRESERVED FOR APT STATS 
000000 

L$CO:: 
000000 

LSDTYP:: sDIAGNOSTIC TYPE 
000001 

LEAPT:: ;APT EXPANSION 
000000 0 

cSDIP:: zPTR. TO DISPATCH TABLE 
002124 LSDISPAT 

L$PR:9.: sDIAGNOSTIC RUN PRIORITY 


000340 INTPRI 
LSENVI:: sFLAGS DESCRIBE HOW IT WAS SETUP 





PROGRAM HEADER 
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BR PR PR PR PROPOR OPO POP ee Pe Ee ly my, Pm, Oy oy 
UWBUSUNESWUE NEMS NE HEME NMNE UWE Me 
ee ee ee ee ee ee ee ee ee ee 


ee et et et es ee et a a a ee a a ee ee ee ee 


* 


002 


ed ed dd od 
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000000 
000000 


G03 
003 


000000 
000000 


000000 
002166 
017366 
600000 
000000 
023246 
023202 
000000 
002140 
104035 
000000 
021222 
023140 
022516 
021214 
000000 
000000 
000000 


MACY11 30(1046) 
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PROGRAM HEADER 


LSEXP1:: 
LSMREV:: 


LSEF:: 


LSSPC:: 
LSDEVP:: 
LSREPP:: 
LSEXP4:: 
LSEXP5:: 
LSAUT:: 
LSDUT:: 
LSLUN: : 
LSDESP:: 
LSLOAD: : 
LSETP:: 
LSICP:: 
LSCCP:: 
LSACP:: 
LSPRT:: 
LSTEST:: 
LSDLY:: 
LSHIME:: 


sEXPANSION WORD 
3SVC REV AND EDIT # 


3_1AG. EVENT FLAGS 


; POINTER TO DEVICE TYPE LIST 
3PTR. TO REPORT CODE 


3PTR. TO ADD UNIT CODE 

zPTR. TO DROP UNIT CODE 

3LUN FOR EXERCISERS TO FILL 
sPOINTER TO DIAG. DESCRIPTION 
GENERATE SPECIAL AUTOLOAD EMT 
POINTER TO ERRTBL 

zPTR. TO INIT CODE 

zPTR. TO CLEAN-UP CODE 

:PTR. TO AUTO CODE 

3PTR. TO PROTECT TABLE 

; TEST NUMBER 

;DELAY COUNT 

PTR. TO HIGH MEM 


CSREVISI 
CSEDIT 


0 
0 


0 
LSDVTYP 
LSRPT 


LSOESC 
ESLOAD 
0 
LSINIT 
LSCLEAN 
LSAUTO 
LSPROT 
0 

0 

0 
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1784 -SBITL DISPATCH TABLE 


1787 : THe DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
1788 ;_IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


1791 002122 DISPATCH 6 : SIX TESTS 
(4) 002122 000006 -WORD 6 
(3) 002124 LSDISPATCH:: 
(6) 002124 023342 oc T1 


-SBTTL DESCRIPTIVE TEXT 


ih 
32 LINES OF TEXT PRINTED TO THE OPERATOR TO IDENTIFY THE DIAGNOSTIC AND THE DEVI 


GoSSoRaRSSss 


002140 DESCRIPT <DATA RELIABILITY TEST> 

002140 LSDESC:: 

002140 040504 040524 051040 -ASCIZ /DATA RE 
002146 046105 040511 044502 

(3) 002154 044514 054524 052040 

(3) 002162 051505 000124 

(2) EVEN 
1807 002166 DEVTYP <TU80> 

(4) 002166 LSDVTYP:: 

(3) 002166 052524 030070 000 eASCIZ /TU80/ 
(2) 002174 EVEN 





o 


ee ee ee ee | 


Coco 00 ~~ = 0000 
MmnN— 


3 


09 09 00 09 00 CoCo 
od ad od ed od 


-—& 
wr 
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P11 12=JUL=83 09:26 DEFAULT HARDWARE P-TABL SEQ 0040 
9 .SBITL DEFAULT HARDWARE P-TABLE 
2 ag 
3 : THE DEFAULT HARDWARE P=TABLE CONTAINS DEFAULT VALUES OF 
4 + THE TEST=DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
2 3 IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 
7 . 
8 002174 BGNHW OFPTBL 
» 002174 000002 «WORD 1L10000-L 
» 002176 LSHW: : 
002176 DFPTBL:: 
5 
6 002176 172522 172522 sTSSR ADDRESS. 
002200 000224 224 VECTOR ADDRESS. 
9 002202 ENDHW 
» 002202 L10000: 
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CZTUVB.P11 12-JUL-83 09:26 SOF TWARE POTABLE SEQ 0041 CZ 
1832 -SBITL SOFTWARE P-TABLE 
1834 
1835 : "THE SOFTWARE P=TABLE CONTAINS THE VALUES OF THE PROGRAM 
iss ; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 
1838 002202 BGNSW SFPTBL 
(3) 002202 000043 eWORD L10001-L 
(3) 002204 L$SW:: 
(3) 002204 SFPTBL 
1845 002204 001 CLRFLG::.BYTE 1 CLEAR COUNTERS FLAG. 
1846 002205 000 RRANV:: .BYTE 0 SRESET RANDOM VARIABLES EACH PASS FLAG. 
1847 22 000 HAE : -BYTE 0 [HALT AFTER EACH COMMAND FLAG. 
1848 002207 000 ERCVER::.BYTE 0 SENABLE RECOVERABLE ERROR ae FLAG. 
1849 002210 000 IREC -BYTE 0 ; INHIBIT ERROR RECOVERY FLA 
1850 002211 001 BADTSW::.BYTE 1 D TAPE SWITCH TO a ey ON SAME SPOT & DETEC 
1851 002212 000 DINT BYTE 0 {DISABLE INTERRUPTS 
1852 002213 000 PIRE BYTE 0 Z INHIBIT RESIDUAL FRAME COUNT ERROR REPORT FLAG. 
1853 002214 000 RAMWRT::.BYTE 0 TENABLE OPTIONAL RAM DUMP 
1854 002215 000 CHGFLG::.BYTE 0 CHANGE CMD SEO. TABLE FLAG. 
1855 002216 000 -BYTE 0 7 SPARE 
; 528 002217 000 HL 0 7 SPARE 
1858 002220 000040 CHAR:: CH.EAI sCHARACTERISTICS CODE (DEFAULT = 40). 
1859 002222 000015 CMDD:: .WORD 13. [COMMAND 2 (DEFAULT = REWIND). 
1860 002224 000001 WORD 1 BYTE COUNT 
1861 002226 000001 -WORD 1 SNUMBER OF OPERATIONS 
1862 002230 000007 WORD RANP PATTERN 
1863 002232 000004 WORD 4 COMMAND 3 (DEFAULT = WRITE) 
1864 002234 004000 WORD DATCNT TBYTE COUNT (DEFAULT = MAX BUFFER SIZE). 
1865 002236 076400 -WORD 32000. 7NUMBER OF F OPERATIONS (DEFAULT = 32000). 
1866 002240 000007 WORD RANP SPATTERN (DEFAULT = RANDOM). 
1867 002242 000003 WORD 3 [COMMAND 4 (DEF AULT = READ REV). 
1868 002244 004000 WORD DATCNT SBYTE COUNT (DEFAULT = MAX BUFFER SIZE). 
1869 002246 076400 -WORD 32000. ZNUMBER OF A ite: (DEFAULT = 32,000). 
1870 002250 000007 WORD RANP ;PATTERN wha RANDOM). 
1871 002252 000002 ~WORD 2 3C D 5 (DEF AULT = READ FWD). 
1872 002254 WORD DATCNT sBYTE COUNT (DEFAULT = FER_SIZE). 
1873 002256 076400 - WORD 000. 3 NUMBE OPERATIONS (DEFAULT = 32,000). 
1874 002260 000007 WORD RANP SPATTERN (DEFAULT = RANDOM). 
1875 002262 000015 WORD 13. [COMMAND 6 (DEFAULT = REWIND). 
1876 002264 000001 WORD 1, sBYTE COUNT 
1877 000001 WORD 1 ; NUMBER OF OPERATIONS 
1878 002270 000007 -WORD RANP ;PATTERN 
1879 002272 000033 WORD 27, SEND OF CMD eo TABLE CODE (DEF) OR CMD 7 
1880 002274 004000 -WORD DATCNT SBYTE COUNT (DEFAULT = MAX BUFFER SIZE). 
1881 002276 076400 -WORD 32000. ; ER OF OPERATIONS (DEFAULT = 32000). 
1882 2 0 4 » WORD PATTERN (DEFAULT = RAN 
1883 002302 0000 » WORD zEND OF ABLE CODE (DEF) OR CMD 8 
1884 002 004000 WORD DATCNT YTE COUNT (DEFAULT = FER_SIZE). 
1885 002306 076400 «WORD 0. ZNUMBER OF OPERATIONS (DEFAULT = 32000). 
1886 002310 000007 -WORD RANP SPATTERN (DEFAULT = RANDOM). 
1887 002312 ENDSW 
(3) 002312 L10001: 
1888 002312 ENDMOD 
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- TITLE GLOBAL AREAS 
-SBTTL GLOBAL EQUATES SECTION 


p++ 
; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
3 ARE USED IN MORE THAN ONE TEST. 


— os os SS oY YY YY 


002312 EQUALS 

+ BIT DIFINITIONS 
100000 
40000 


ARRRRRRAR RRA ROOOOOOOO >. 


mee ee ee a ee I) ed ed nd ed td ot od 


and and ad end ed eed 
-@ 
" 


ee eee ee ee 
rary 
OWE UA NWO 
nrnnnnnnhana 
nonnnnnnanne 


FLAG_DEF INITIONS 
2:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


: START COMMAND WAS ISSUED 

3 RESTART COMMAND WAS ISSUED 

; CONTINUE COMMAND WAS ISSUED 

3; A NEW PASS HAS BEEN STARTED 

; A POWER-FAIL/POWER-UP OCCURRED 


; PRIORITY LEVEL DEFINITIONS 
R107== 340 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


ee ee ee ee ee ee ee ee ed ed ed ed ed 
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DWDORAARARRAA RAAF AAA AAAAAAO 
PDI et a tk kk ak td kk tk dt ot oh oh 
One weuevevuvvvuvvuvvuvyvyveyvyyyvyvyvyveyvv~sy 


REGISTER USAGE. 
RO = PASSES PARAMETERS TO/FROM DIAGNOSTIC SUPERVISOR. 
SEQUEN POINTER. 


R4 = GENERAL PURPOSE REGISTER. 

R5 = CURRENT LOGICAL DEVICE NUMBER X 2. 
R6 = STACK POINTER. 
R7 = PROGRAM COUNTER. 


THE FOLLOWING ARE BIT DEFINITIONS FOR THE TSSR REGISTERS. 


TS.SC==100000 ; SPECIAL cei BIT. 
TS.UPE==40 ;UNIBUS PAR ivy ER ye 

+ SERIAL BUS PARITY ERROR. 

;REGISTER MODIFICATION REFUSED. 

SNON-EXISTENT MEMORY. 

NEED BUFFER ADDRESS. 

3BUS ADDRESS BIT 17. 

BUS ADDRESS BIT 16. 

[UNIT READY BIT. 


OFF LINE. 
T FATAL CLASS CODE MASK. 
177761 [TERMINATION CLASS CODE 


3 
BSSSSRRELELE 
FWNM OC OONOUEW 
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198 zTHE FOLLOWING ARE BIT DEFINITIONS FOR THE COMMAND WORD 
1958 ACK.C==100000 sACKNOWLEDGE BIT 
cvC.C==40000 ZCLEAR VOLUME CHECK. 

OPP.C==20000 :OPPOSI TE BIT 
SwB.C==10000 SWAP BYTE BIT 
MOD .C3==4000 ;MODE BIT 3 
BRF .C==4000 SBYTE/RECORD/FILE COUNT FLAG BIT. NOT USED 

:BY TU80 BUT USED INTERNALLY BY THIS PROGRAM ONL 
MOD.C2==2000 sMODE BIT 2 
MOD.C1==1000 ;MODE err 1 
MOD. CO0==400 ;MODE BIT 0 
1E.C==200 EINTERRUPT ENABLE 
FMT.C1==100 sFORMAT BIT 1 
VFY.C==100 WRITE VERIFY FLAG BIT. INTERNAL USE ONLY. 

iNOT USED BY TU8O. 
a CO= =40 ;FORMAT BIT 0. 

; JUMP BIT-TO DIRECT rs PROGRAM TO JUMP TO 


ZA CERTAIN LOCATION IN THE COMMAND SEQUENCE 
; TABLE. INTERNAL USE ONLY. 


SINSERT DELAY. INTERNAL USE ONLY. 
;COMMAND BIT 3 


SSSESSEFERESS 


ee ek ed ed ad aed ed ed ed 
Oo 
“ 
im 


BIT DEFINITIONS FOR DEVICE CHARACTERISTICS. 


CH.ESS==200 sENABLE SKIP TAPE MARKS STOP (STOP AT LOGICAL EO 
CH.EAI==40 TENABLE ATTENTION INTERRUPTS. 

CH.ERI==20 SENABLE MESSAGE BUFFER RELEASE INTERRUPTS. 

DF TSCH==CH.EAI ZDEFAULT CHARACTERISTICS CODE. 


3 THE FOLLOWING eer THE RELATIVE POSITIONS OF THE STATUS WORDS 
IN THE MESSAGE BUFFER. 


RESIDUAL FRAME COUNT. 
000006 3EXT STATUS REG ? 
00010 
000012 
000014 


APE MARK. 
RECORD LENGTH SHORT. 
RECORD user 1.ONG. 
. ON, LINE BIT. 
x0.80 rei. 
x0.E0T SEOT BIT. 
zTHE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2. 


X2.0PM==100000 OPERATION IN PROGRESS, TAPE MOVING 
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000340 
000010 


000016 
000020 
004000 


177740 
00000 


177740 


100013 
104001 
104401 
104005 
104105 
104010 


104410 
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;THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3. 


X3.DCK== 19 sDENSITY CHECK. 
X3.RNY==157400 [CAPSTAN RUNAWAY UDIAG ERROR CODE. 


zTHE FOLLOWING DEFINITIONS SHOW THE RELATIVE POSITIONS OF THE COMMAND 
PACKET ENTRIES. 


CP. CMD== 3CMDPKT+0==TU80 C ° 

CP.ADL== ‘EMDPKTso==BUFFER ADDRESS LOW. 

CP.ADH== 7 CMDPKT+4==BUFFER ADDRESS HIGH. 

CP. CNT== > CKDPKT+6==BYTE/FILE/RECORD COUNT 

: MISCELLANEOUS DEFINITIONS. 

INTPRI==PR107 sPRIORITY TO BE USED IN INTERRUPT STATE. 
SCHCNT==10 SARBITRARY BYTE yi ge ~~ CHARACTERISTIC 


7BUFFER LENGTH. (EVEN 


MSGCNT==16 7MESSAGE BUFFER LENGTH” IN BYTES. — #) 
DIACNT==20 [DIAGNOSTIC COMMAND BUFFER EXTENT 
DATCNT==2048. sMAXIMUM RECORD LENGTH IN BYTES, 
zTHIS COUNT SHOULD BE A MULTIPLE OF 256 TO INSUR 
[PROPER READ/WRITE BUFFER ALLOCATION BY THE SUPE 
RNOPSC==177740 ZRANDOM # OF OPERATIONS MASK. 
RANP==7 CODE TO SELECT RANDOM PATTERN. 
RRECL==16 READ RECOVERY ATTEMPT LIMIT. 
WRECL==16. sWRITE RECOVERY ATTEMPT LIMIT. 
RANBC==153624 CONSTANT USED TO RESET RANDOM # GENERATOR BASE. 
RANSC==32561 : CONSTANT USED TO RESET RANDOM # SAVE LOCATION. 
NINUSE==177774 zNOT USE CODE FOR DEVICE STATE TABLE. 
NCMD.C==ACK.C!CVC.C!OPP.C! SWB.C!MOD. C: "MOD C2:MOD.C1!MOD.CO!IE.C!FMT. C1iFMT.cO 
3NOT “*COMMAND'’ BITS. 


zTHE FOLLOWING DEFINES THE COMMAND WORD FOR EACH TU80 COMMAND. 


DRI== ACK.C!CMD.C3!CMD.C1!CMD.CO 
sDRIVE INIT. 


RDF== ACK.C!BRF.C!CMD.CO 
READ FORWARD 


RDR== ACK.C!BRF.C!MOD.CO!CMD.CO 
3READ REVERSE 


WRT== ACK.C!BRF.C!CMD.CO!CMD.C2 
sWRITE COMMAND 


WTV== ACK.C!BRF.C!VFY.C!CMD.CO!CMD.C2 
sWRITE VERIFY 


SRF== ACK.C!BRF.C!CMD.C3 
SPACE RECORD FORWARD 


SRR== ACK.C!BRF.C!MOD.CO!CMD.C3 
sSPACE RECORD REVERSE 
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105401 ACK.C!BRF.C!MOD.C1!MOD.CO!CMD.CO 
zREAD REV RETRY1 ~ REREAD NEXT REVERSE, IE. SPACE FWD, READ REVE 


125401 == ACK.C!BRF.C!OPP.C!MOD.C1!MOD.CO!CMD.CO 
gREAD REV RETRY2 = REREAD NEXT FORWARD, IE.READ FORWARD, SPACE R 


105001 == ACK.C!BRF.C!MOD.C1!CMD.CO 
gREAD FWD RETRY1 = REREAD PREVIOUS FORWARD, IE. SPACE REVERSE, R 


125001 == ACK.C!BRF.C!OPP.C!MOD.C1!CMD.CO 
sREAD FWD RETRY2 = REREAD PREVIOUS REVERSE, IE. READ REVERSE, SP 


105005 ACK.C!MOD.C1!BRF.C!CMD.C2!CMD.CO 
sWRITE RETRY 


102010 ACK.C!MOD.C2!CMD.C3 
sREWIND COMMAND 


100012 ACK.C!CMD.C3!CMD.C1 
MESSAGE BUFFER RELEASE 


100011 = ACK.C!CMD.C3!CMD.CO 
WRITE TAPE MARK. 


101011 == ACK.C!MOD.C1!CMD.C3!CMD.CO 
WRITE TAPE MARK RETRY. 


105010 == ACK.C!BRF.C!MOD.C1!CMD.C3 
sSPACE FILE FORWARD 


105410 = ACK.C!BRF.C!MOD.CO!MOD.C1!CMD.C3 
sSPACE FILE REVERSE 


100017 == ACK.C!CMD.CO!CMD.C1!CMD.C2!CMD.C3 
3GET EXTENDED STATUS 


100411 =  ACK.C!MOD.CO!CMD.C3!CMD.CO 
sERASE 3 INCHES OF TAPE 


100412 ACK.C!MOD.CO!CMD.C3!CMD.C1 
;UNLOAD COMMAND 


101012 = ACK.C!MOD.C1!CMD.C3!CMD.C1 
sERASE TAPE. 


140004 == ACK.C!CVC.C!CMD.C2 3SET DEVICE CHARACTERISTICS. 
100006 = = ACK.C!CMD.C2!CMD.C1 sDIAGNOSTICS. 

000040 JMP.C 7 JUMP TO "'N’'TH COMMAND 
000020 == ODLY.C sDELAY ‘'N’* MS. 

177777 == 177777 END OF COMMAND SEQUENCES 


VUSSBVRARAN=SSHNVSARAVIO 


POPOPENENPONOPENPEPININININININNNNNNNNNN 


Non — wap 
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CZTUVB.P11 12=JUL-83 09:26 LOBAL DATA SECTION SEQ 0047 
sige -SBITL GLOBAL DATA SECTION 
2126 p++ 
2127 : THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
2128 ; IN MORE THAN ONE TEST. 
2129 eo 
2130 
sigs : COMMAND PACKET. 
2133 002314 ‘ = -#38177774 3;MUST BE ON MOD 4 BOUNDRY. 
2134 002314 000000 CMDPKT:: 0 31ST WORD IS TU8O COMMAND. 
2135 002316 000000 0 72ND WORD IS THE BUFFER LOW ADDRESS. 
2136 002320 000000 0 35RD WORD IS THE BUFFER HIGH ADDRESS. 
Size 002322 000000 0 374TH WORD IS THE BYTE/RECORD/FILE COUNT. 
$126 ; GET STATUS COMMAND PACKET. 
2141 002324 . = .+38177774 MUST BE ON MOD 4 BOUNDRY. 
sing 002324 100017 GSCPK:: .WORD GES 
2144 
$ie2 3 MESSAGE BUFFER RELEASE COMMAND PACKET. 
2147 002330 . = - #38177774 MUST BE ON MOD 4 BOUNDRY. 
gies 002330 100012 BRCPK:: .WORD MBR 
$120 ; REWIND COMMAND PACKET (USED IN ERROR RECOVERY ONLY) 
2152 002334 ‘ = . #38177774 MUST BE ON A MODULE 4 BOUNDARY. 
2153 002334 102010 RWCPK:: .WORD RWD 
siz 002336 000001 «WORD 
$25 3 WORK AREA FOR ANALYSIS OF MESSAGE PACKET CONTENTS. 
2158 002340 000007 MSGPKT:: .BLKW 7 31ST WORD:: MESSAGE TYPE. 
2159 32ND WORD:: DATA FIELD LENGTH. 
2160 35RD WORD:: RESIDUAL FRAME COUNT. 
2161 34TH WORD:: XSTATO 
2162 3 WORD:: XSTAT1 
2163 3 WORD:: XSTAT2 
$16e 37TH WORD:: XSTATS 
$16 3 MESSAGE PACKETS. 
2168 002356 000007 MSGPKO:: .BLKW 7 MESSAGE PACKET FOR DEVICE #0 
2169 002374 000007 MSGPK1:: .BLKW 7 MESSAGE PACKET FOR DEVICE #1 
2170 002412 000007 MSGPK2:: .BLKW 7 MESSAGE PACKET FOR DEVICE #2 
2171 002430 000007 MSGPK3:: .BLKW 7 MESSAGE PACKET FOR DEVICE #3 
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: SET CHARACTERISTIC BLOCK. 
002356 SCHBK:: MSGPKO ; $8 et aoe o LO(SET UP BY EXCUTE ROUT 


000000 : :: MSGPKT AD 
000016 MSGCNT :: MSG BUFFER LENGTH (BYTES) 
000040 CH.EAI °4TH WORD:: CHARACTERISTICS WORD(SET BY SETUP RO 


; TU8O REGISTER ADDRESSES. 


000004 TSDB:: .BLKW o ;TU80 DATA BUFFER ADDRESSES. 
000004 33 ;TUB0 STATUS REGISTER ADDRESSES. 
000004 33 3TU80 VECTOR ADDRESSES. 

002456 TSBA==TSDB ;DATA BUFFER ADDRESS REGISTER. 


e ADDRESSES OF MESSAGE PACKETS. 
002356 MSGPKA: : :DEVICE 0 
002374 MS 1 
002412 CE 2 
002430 “DEVICE 3 
3 ADDRESSES OF INTERRUPT HANDLING ROUTINES. 
TS4INT:: ottaen DEVICE 0. 
DEVICE He 
DEVICE E 2. 
:DEVICE 3. 
TU80 CODE LEVELS, WILL BE STORED AFTER SCH CMD IN BASIC FUNCTION TEST 
:: 0 ;DEVICE 
0 


0 : 
0 sDEVICE 3 


UNIT NUMBERS OF ALL DEVICES BEING TESTED(1~4). 
WHEN DEVICE IS NOT IN USE, IT,S LOCATION WILL = -3. 
R5 WILL ALWAYS CONTAIN THE PRESENT LOGICAL UNIT NUMBER X 2. 


DEVTBL:: 


oO 
ne 


ee ce ee cee ee ee ce et ee ee ed ed ed ed ed od nd ed 
SLSSLISLSSELEALAKSSS 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
Fr 
2 
2 
2 
2 
2 
2 
2 
2 
2 


; BAD TAPE TABLE POINTER: USED BY WRITE RETRY ROUTINE 
: “WRTY'’ TO LOG BAD TAPE SPOTS ON UNITS UNDER TEST 


BTADDR:: B10 
BT! 


002554 BTe 
002556 003176 BT3 
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COUNTER AREA. 


sBYTES WRITTEN. 

BYTES a nb h 

BYTES READ FWD. 

; RECOVERABLE WRITE ERRORS. 
COVERABLE WRITE ERR 


ooo 


. Abeta AIA AIA “om 


eh eh 
e*eese 


sUNIT 3 BA 
;WRITE RETRY COUNTER 


COUNT. 
:SPECIAL CONDITION COUNT. 
;COUNT OF TU8O DATA COMPARE ERRORS. 
: 3 COUNT OF HARD ER 
000004 73 2B COUNT OF FATAL ERR ORS. 
003330 3END 4 STATICTICAL COUNTERS. 
000004 RECCNT:: .BLKW R OF RECORDS FROM BOT: at ON REWIND 
SAND WHEN RESTARTING OR CONTINUING TEST 2. 
000550 CNTLEN==CNTEND~CNTBGN [LENGTH OF STATISTICAL COUNTER AREAL 


: THE ss ARE THE DEFINITIONS OF VARIABLES 
: USED BY THE PROGRAM. 


DOAGIN:: 
HERE:: 


SERS SNVNNNS LSS LSUAN 


&* 


sTEST 3 LOOP C 
;THIS IS A BEEN, HERE BEFORE’’ MARKER 


zRAM ADDR HOLDER 1ST ADDRESS 
ZHOLDS R5 FOR LATER 

;DATA READ PROM SRAM peta d OR MESSAGE BUF AREA 
RAM ore SIZE FOR PRAMPKT TINE 

SCOUNTS # OF READS (TEST 3) BEFORE ALLOWING A DA 
SCONTROLS THE DATA COMPARE RATIO 


BTL 
[WRITE BUFFER ADDRESS. 
; FER ADDRESS. 


oa 
* 


Cooooooooo-ce0 oo 


D BE ING EXECUTED PRESENTLY. 
D DURING ERROR RECOVER 


CURRENT COMMAND LOGGING CODE. 

RANDOM wile LENGTH MASK, TO BE SET UP BY TESTS 
ZRANDOM # GENERATOR BASE. 
RANDOM # SAVE LOCATION. 

sTIME COUNT 1. 


TIME COUNT 
;JMP COMMAND LOOP COUNT. 
7JMP COMMAND LOCATION COUNT. 





L 
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2282 003456 000000 PATERN:: .WORD 0 sPATTERN SELECT CODE. 
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Oy Cet et pet et 


2322 


003460 000000 
003462 
003464 000000 
003416 
3466 
003466 000000 
003470 000 
003471 000 
003472 
003473 000 
003474 
003475 000 
003476 
003477 
003500 
3500 000004 
003510 0900004 
003520 000000 
003522 
003523 000 
003524 
003525 
003526 000 
003527 000 
003530 000 
003531 00 
003532 000 
003533 000 
534 000 
003536 
003536 
003536 000 
003537 000 
003540 000 
003541 000 
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GLOBAL DATA SECTION SEQ 0051 
CTCu:: .WORD 0 CD ype CLASS CODE. 
RSSAVE:: .WORD 0 OCATION FOR SAVING ena DEVICE POINTER. 
TSSREG:: .WORD 0 CURRENT STATUS REGISTER. 
DIABLK==DATAWT [WRITE BUFFER ALSO USED FOR DIAG CMD. 
; ERROR FLAG AREA, THESE FLAGS ARE CLEARED DURING INITIALIZATION AND 
; AFTER EACH COMMAND IS COMPLETED. 
BGNFLG=. 
RETRYC: 0 ;# OF RECOVERY heat EXECUTED. 
RPTCNT:: .BYTE 0 ;WRITE REPEAT ON SAME SPOT CNTR: 4 PER WRITE RETRY 
WRTYFG:: .BYTE 0 WRITE RETRY ON SAME SPOT IN PROGRESS FLAG 
TYER:: .BYTE 0 [WRITE RETRY ON SAME SPOT ERROR FLAG 
RECLOG:: .BYTE 0 ;RECORD COUNT HAS BEEN UPDATED FOR THIS RECORD. 
LOG:: .BYTE 0 [DATA BYTES AND ERRORS HAVE BEEN LOGGED FOR THIS 
RWERR:: .BYTE 0 SREAD/WRITE ERROR HAS OCCURED. 
REC:: .BYT 0 [UNRECOVERABLE ERROR HAS OCCURED. 
ERRREC:: Paha 0 sERROR RECOVERY MODE. 
ENDERF=. 
: ADDITIONAL FLAGS, THESE FLAGS ARE CLEARED DURING INITIALIZATION. 
INTFLG:: .BLKW 4 z INTERRUPT OCCURRED FLAGS FOR EACH DEVICE. 
EOTFLG:: .BLKW 4 ZEOT/BOT FLAGS FOR EACH DEVICE (XSTATO). 
BTPT:: .WORD 0 3BAD TAPE SPOT POINTER TO BTO-BT3 VIA BTADDR 
EXPBOT:: .BYTE 0 BOT IS EXPECTED, DO NOT ABORT ON BOT/FUNC RTI. 
RANDOM:: .BYTE 0 RANDOM EVERYTHING aeaat 
VFYFLG:: .BYTE 0 3SET DURING WRITE/VERIFY COMMAND. 
RPTFLG:: .BYTE 0 [PERFORMANCE REPORT HAS 5 ay REQUESTED. 
SWBFLG:: .BYTE 0 SENABLES SWAP BYTE FUNCTION WHEN NOT EQUAL TO ZE 
E:: .BYTE 0 Z INHIBIT RESIDUAL FRAME COUNT ERROR REPORT. 
DROPED:: .BYTE 0 ; CURRENT T HAS BEEN DROPPED 
SWB:: .BYTE 0 :TEST1 ng eT FLA 
ALLEOT:: .BYTE 0 zALL_UNITS @ EOT FLAG 
STREAM:: .BYTE 0 ZINDICATES TEST ONE UNIT AT A TIME, COMPLETELY 
ERSFLG:: .BYTE 0 ASE FLAG: DO ERASE AFTER A SPACE REV TO DELE 


ERAS 
:BADLY WRITTEN RECORD. 1 TO 4 ERASES LEAVING 
3 TO 12 INCH GAP MAY RESULT. 


-EVEN 
ENDFLG=. 
; ADDITIONAL FLAGS, THESE FLAGS ARE CLEARED ONLY AFTER BEING CHECKED. 
STAFLG:: .BYTE 0 sSTART FLAG - HY BY INIT CODE IF STARTING. 


PWRFLG:: .BYTE 0 ;POWER ‘ee FLAG = SET ONLY DURING INIT. 
TRAPD4:: .BYTE 0 ;TRAPED AT 4 FLAG 
MISCFG:: .BYTE 9 ;MISCELLANEOUS FLAG 


Q 
T 
2 
2 
é 
r 
é 
é 
é 
2 
é 
P| 
é 
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2334 : OPERATOR FLAG SETTINGS PASSED BY DIAG. ye > ioe IN A 16 BIT WORD 
3H ; SEE GLOBAL EQUATES SECTION FOR FLAG BIT LIST 
2337 003542 000000 OPFLAG:: .WORD 0 ;READ ONLY OPERATOR FLAG WORD 
sae6 -EVEN 
2340 zTHE FOLLOWING IS THE COMMAND SEQUENCE jo THE TABLE 
2341 SHAS DEFAULT VALUES AT PROGRAM LOAD AS SHOWN. THESE VALUES 
sue 7CAN BE UPDATED BY A TEST OR BY OPERATOR INPUT. 

2344 003544 140004 CMDSEQ:: .WORD SCH 3SET CHARACTERISTICS. 

2345 003546 000040 WORD CH.EAI 

2346 003550 000001 WORD 1 

2347 003552 000000 «WORD 0 

2348 003554 102010 CMDSE2:: .WORD RWD sREWIND. 

2349 003556 000001 «WORD 1 BYTE COUNT. 

2350 003560 000001 -WORD 1 ZONCE. 

2351 003562 000007 ~WORD RANP ;PATTERN. 

2352 003564 104005 WORD WRT ITE. 

2353 003566 004000 WORD DATCNT “MAX BUFFER LENGTH. 

2354 003570 076400 «WORD 32000. 332, 000 RECORDS. 

2355 003572 000007 -WORD RANP RANDOM PATTERN. 

2356 003574 104401 WORD RDR TREAD REV. 

2357 003576 004000 «WORD DATCNT MAX BUFFER — 

2358 003600 076400 -WORD 32000. i352. 000 R 

2359 003602 . 000007 eWPA2D = =RANP “ry PATTERN. 

2360 003604 104001 WORD = RDF READ FWD. 

2361 003606 004000 WORD DATCNT TMAX BUFFER LENGTH. 

2362 003610 076400 -WORD 32000. i352. oe RECORDS. 

2363 003612 000007 -WORD RANP PATTERN. 

2364 003614 102010 WORD RWD eReW IND. 

2365 003616 000001 -WORD 1 :BYTE COUNT. 

2366 003620 000001 WORD 1 S 

2367 003622 WORD RANP TTERN 

2368 003624 000004 -BLKW 4 SEXTENSTIc™ TO HOLD 1 MORE CMD. 
369 003634 177777 SEQEND:: .WORD END :SOFT END OF SEQUENCE TABLE. 
2370 003636 177777 -WORD END 

2371 3640 177777 WORD END 

2372 2 177777 WORD END 


00364 oe 
2373 003644 177777 WORD END ;HARD END OF SEQUENCE TABLE. 
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CZTUVB.P11 12=JUL=83 09:26. GLOBAL DATA SECTION SEQ 0053 
te} sTHE FOLLOWING IS THE TU80 COMMAND TABLE 
2377 003646 100013 CMDTBL:: .WORD ORI ;DRIVE INIT. 
2378 003650 104001 WORD RDF sREAD FORWARD. 
2379 003652 104401 WORD ROR ;READ REVERSE. 
2380 003654 104005 eWORD WRT E 
2381 003656 104105 4 WTVv + URITE/VERIFY. (WRITE ALL RECORDS, RDR AND 
2382 :CHECK DATA ON ALL RECORDS, RDF AND 
2383 sCHECK DATA ON ALL RECORDS.) 
2384 003660 104010 -WORD SRF SPACE ‘N'' RECORDS FORWARD. 
2385 003662 104410 ~WORD SRR TSPACE ‘WN’ RECORDS REVERSE. 
2386 003664 105401 WORD RNR SREAD NEXT REVERSE. I.E., SPACE FWD, READ REVERS 
2387 3666 125401 -WORD RNF sREAD NEXT FORWARD, I.E., READ FORWARD, SPACE RE 
2388 003670 105001 -WORD RPF *READ PREVIOUS FORWARD. I.£., SPACE REVERSE, REA 
2389 003672 125001 -WORD RPR SREAD PREVIOUS REVERSE. I.E., READ REVERSE, SPAC 
2390 003674 105005 ~WORD WRR SWRITE RETR 
2391 003676 102010 WORD RWD *REWIND. 
2392 003700 100012 WORD MBR ;MESSAGE | BUFFER RELEASE 
2393 003702 100011 WORD WIM WRITE TAPE MARK 
2394 003704 101011 WORD WTR sWRITE TAPE MARK RETRY. 
2395 003706 105010 WORD SFF 3 SPACE "N'' FILES FORWARD. 
2396 003710 105410 WORD SFR :SPACE 'W'' FILES REVERSE. 
2397 003712 100017 -WORD GES [GET EXTENDED STATUS. 
2398 003714 100411 WORD ERS SERASE 3 INCHES OF TAPE. 
003716 100412 -WORD UNL [REWIND AND UNLOAD. 
2400 003720 101012 WORD CLN CLEAR TAPE. 
2401 003722 140004 ~WORD SCH :SET CHARACTERISTICS. 
2402 003724 100006 WORD DIA :DIAGNOSTIC COMMAND. 
2403 003726 000040 WORD JMP : JUMP TO THE NTH COMMAND IN THE SEQUENCE. 
2404 003730 000020 -WORD OLY ‘DELAY "'N'' MS. 
2405 003732 177777 WORD END SEND OF COMMAND TABLE 
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004047 
004052 
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VINWUNNMV 


047125 


= 
ono 
Ww 


104 


047105 
004056 


= ——=MwVo0ONn— 
= CBBNWAGEUNMEVNG 


120 


054514 
104 
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GLOBAL DATA SECTION 
THE FOLLOWING TABLE CONTAINS THE ASCII FOR EACH COMMAND. 


CMDASC:: 


ASCII 


Annnnnnnw 


° 
> 
nw 


7 
a 
AOAAAAOAAOOOO OOo 


« 
> 
nn 


ASCII 


ASCII 
ASCII 
VEN 


/ORI/ 
/ROF/ 


SEQ 0054 


sDRIVE INIT. 
SREAD FORWARD. 
ZREAD REVERSE. 


;WRITE/VERIEY (WRITE ALL RECORDS, RDR AND CHEC 
30N AL RECORDS. RDE AND CHECK DATA ON ALL RECOR 
: SPACE oN RE ORDS 

SPACE "N'' RECORDS. REVERSE. 

3READ NEXT REVERSE. 1.£., SPACE FWD READ REVERSE 
ZREAD NEXT FORWARD, I.E., READ FORWARD, SPACE RE 
ZREAD PREVIOUS FORWARD. IE., SPACE REVERSE, READ 
READ PREVIOUS REVERSE. IE., READ REVERSE, SPACE 


sREWIND 
[MESSAGE BUFFER RELEASE 
;WRITE TAPE MA 


3WRIT RK 

:WRIT RK RETRY. 

:SPACE ‘N'' FILES FORWARD. 
PACE ‘N'' FILES REVERSE. 


7s 

3GET EXTENDED STATUS. 

sERASE 3 INCHES OF TAPE. 
ND_AND UNL 


3CLEAN TAPE. 

TSET CHARACTERISTICS. WHERE BRF=200, 40, 20, 0. 

7SEE TU80 PROGRAMMING SPECIFICATION FoR DESCRIPT 

od oes’ s HES I SEE TU80 PROGRAMMING SPECIFICATIO 

FOR DESCRIPTION. ODT MUST BE USED TO LOAD DIAG 

SINTO THE WRITE BUFFER BEFORE THIS CMD IS ISSUED 
THE NTH COMMAND IN THE COMMAND 


;JUMP TO THE N 

;SEQUENCE TABLE, WHERE N IS DEFINED IN 
;THE # OF OPERATIONS. 

;DELAY “N'' MS, WHERE N IS DEFINED IN 
;THE # OF OPERATI 

;END OF COMMAND SEQUENCE. 


ne 
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2449 -SBITL GLOBAL TEXT SECTION 
2450 
2451 p++ 
245 : THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
245 3: MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
2454 3; MORE THAN ONE TEST. 
2455 :-- 
2456 
2457 
2464 $ 
aH : FORMAT STATEMENTS USED IN PRINT CALLS 
2467 
sec8 «NLIST BEX 
so 004056 047045 040445 047125 CODELM:: — /Z2NZAUNIT %D1%A TUBO CODE LEVEL P%032NZN/ 
2472 004126 054130 020130 046503 HALTM:: “ASC1Z /XXX CMD = TYPE <CR> TO CONTINUE/ 
oth 004166 B36305 020104 040520 CMDPKM: : — TCRD PACKET ADR NOT ON MODULO 4 BOUNDARY: RELOAD! / 
2475 004250 040504 040524 041440 WTVERM:: .ASCIZ /DATA COMPARE ERROR/ 
2476 004273 116 020117 052524 TOERM:: .ASCIZ /NO TU80 RESPONSE/ 
2477 004314 047125 042504 4506 SCERM:: .ASCIZ /UNDEFINED SPEC COND/ 
2478 004340 043122 020103 047516 RFCERM:: .ASCIZ /RFC NON ZERO/ 
24 004355 124 034125 0060 NSSRM:: .ASCIZ /TU80 NOT READY/ 
24 004374 042522 051124 020131 RLEXM:: .ASCIZ /RETRY Tat! EXCEEDED/ 
2481 004421 125 044516 020124 ATTNM:: .ASCIZ /UNIT OFF LINE/ 
2482 004437 106 047125 0521C3 FUNRM:: .ASCIZ /FUNCTION hey JECT/ 
2483 004457 106 052101 046101 FATSM:: .ASCIZ /FATAL SUBSYSTEM ERROR/ 
24 004505 116 020117 047111 NOINTM:: .ASCIZ /NO INTERRUPT/ 
2485 004522 040524 042520 051440 TSAM:: .ASCIZ a STATUS ALERT/ 
24 004544 047524 020117 040515 T :: .ASCIZ 00 MANY INTERRUPTS/ 
2487 004570 040503 051520 040524 RNYM:: .ASCIZ TEAPSTAN RUNAWAY=-GET STATUS RESULTS:/ 
24 004634 042522 047503 042526 RERM:: .ASCIZ /RECOVERABLE ERROR/ 
2489 004656 047125 042522 047503 URERM:: .ASCIZ /UNRECOVERABLE ER 
24 004702 047045 040445 051104 DROPDM:: .ASCIZ /ZNZADROPPED wa 1 ae 
2491 004731 045 022516 040501 UDRPM:: .ASCIZ /2N NZAALL UNITS DROPPEDZNZ : 
2492 004763 045 022516 041101 DTAER2:: .ASCIZ ‘“ZNZABYTE: RDAs cIAUAS: aagus20As/8: %B82N"" 
2493 005032 042045 022464 020101 DTAER3:: .ASCIZ *%D4ZA BYTES IN F 2D42N°° 
24 005074 040445 047516 042040 DTAER4:: .ASCIZ /ZANO DATA REA ae 
2495 005115 045 051101 041505 DTAERS:: .ASCIZ /ZARECORD TOO LONG: >Z042A BYTESEN/ 
24 005157 045 051101 041505 TY1:: .ASCIZ (EAne Covent? ON ge rey SsDeEN/ 
2497 005213 045 052501 044516 OFLINM:: .ASCIZ /ZAUNIT 2D1%A OFF LINEZN/ 
2498 005243 045 043501 052105 GETSTM:: .ASCIZ /ZAGET STATUS CMD RESULTS: IN/ 
2499 005277 045 000116 CRLF:: .ASCIZ /2N/ 
2 005302 047045 051445 000067 CRLFSP:: .ASCIZ /2NZS7/ 
2501 005310 047045 040445 025040 RAMFHR: .ASCIZ ‘2ZNZA *eeeeeeeee SPECIAL M7454 RAM MEMORY DUMP seeeeeceee’ 
2502 005401 045 022516 020101 RAMIOP: .ASCIZ ‘ZNZA RAM ADDRESS (OCTAL) = %03%A = %032N' 
2503 005452 040445 022440 031517 RAMPD: .ASCIZ ‘ZA ZO3ZA ‘ 
2504 005464 047045 047045 047045 RAMLIN: .ASCIZ ‘ZNZNZN‘ 
2505 LIST x 
2506 005474 EVEN 


ae 


; 2 
LOBAL ERROR REPORT SECTION SEQ 0056 C 
-SB1TL GLOBAL ERROR REPORT SECTION 


: 
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ne 


CZ 


5 


;++ 

; THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX CALLS 

: THAT ARE USED IN MORE THAN ONE TEST. IT ALSO INCLUDES THE ASCII MESSAGES 
; THAT ARE USED BY THE PRINTB AND PRINTX CALLS.. 


MrPoreroronenerenern 


Steen BGNMSG DTAERM 
"PRINTB #STAER1,DEVTBL(RS) ,PASCNT(R5) ,RECCNT(RS) 
RECCNT(R 


#12,SP 


#STAER7, 
#1,-(SP) 


SP,RO 
gy 


PRINTB #STAER7 


RECRED := R2 sSAVE R2 

010237 006562 R2,RECRE 
TIME1 := R3 sSAVE R3 

010337 003446 R3,TIME1 
TIME2 := R4 zSAVE R4 

010437 003450 R4, TIME2 

004737 006616 PC,RECTAP RETRIEVE RECORD READ 
R2 := RECRED sRESTORE R2 

013702 006562 RECRED,R 
RECRED := R3 sSAVE RECORD READ 

010337 006562 R3,,RECRE 
R3 := TIME1 sRESTORE R3 

013703 003446 TIME1 RS 
R4 := TIME2 sRESTORE R4 

013704 TIME? ,R4 

PRINTB #STAER6,RECRED sPRINT RECORD READ 
013746 pn Ty 


000006 
EXIT MSG 


~EVEN 
ENDMSG 


L10002: 
104423 





— 


- 
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2539 
2540 005642 BGNMSG STAERM 
(3) 00564 


2 STAERM: : 
2541 aay: PRINTB #STAER1,DEVTBL(RS) ,PASCNT(R5) ,RECCNT(RS) 
(10) 00564 0033 RECCNT(R 
(9) 005646 5 


30 
3260 PASCNT(R 
DEVTBL(R 
#STAER1, 
#4,-(SP) 
SP,RO 
CSPNTB 
#12,SP 


#STAER7 
#1,-(SP) 
P’RO 


PRINTB = #STAER? 


LET R2 := CMDPKT CLR.BY #177740 


LET R2 := R2 = #1 

IF R2 EQ #0 THEN sIF CMD IS A READ 
JSR PC,RECTAP ; THEN RETRIEVE 
LET RECRED := R3 3 AND 
PRINTB #STAER6,RECRED ; TYPE RECORD READ 


R3,RECRE 


ENDIF 


PRINTX #STAER2 

006332 #STAER2 

000001 #1,-(SP) 
SP.RO 


ed dd td ed od ed = 4 
mM 


-—OQOoCcoo0oescoe 


SS 


000016 #16,SP 
PRINTX #STAERS,CMDPKT+2,CMDPKT+4,CMDPKT+6 
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(10) 006054 013746 002322 MOV —s CMDPKT+#6 
(9) 006060 013746 002320 MOV —« CMDPKT+4 
(8) 013746 002316 MOV —« CMDPKT+2 
(7) 006070 012746 006447 MOV = #STAER4, 
(6) 006074 012746 000004 MOV #4, = (SPS 
(3) 006100 010600 MOV _— SP. RO 
(4) 006102 104415 TRAP —CSPNTX 
(4) 006104 062706 000012 ADD _—‘#12,SP 

2553 006110 PRINTX #STAERS,MSGPKT+#MS.XSO,MSGPKT+#MS.XS1 ,MSGPKT+MS.XS2 ,MSGPKT+MS .XS3 
(11) 006110 013746 002354 MOV MSGPKT+M 
(10) 006114 013746 002352 MOV —- MSGPKT+M 
(9) 006120 013746 002350 MOV —- MSGPKT+M 
(8) 006124 013746 6 MOV = MSGPKT+™ 
(7) 006130 012746 006467 MOV #STAERS, 
(6) 006134 012746 000005 MOV #5, = (SPS 
(3) 006140 010600 SP; RO 
(4) 006142 104415 TRAP CSPNTX 
(4) 006144 062706 000014 ADD #14, SP 

2554 006150 EXIT MSG 
(4) 006150 000167 WORD JSJMP 

9{32 006152 000610 “WORD 1 10003-2 

2556 .NLIST BEX 

S226 006154 040445 054130 020130 STAER1: ae /%ZAXXX CMD FAILED = UNIT %2D1%S3%APASS: ZD5%S3ZARECORD: ZD52N/ 

2559 006246 5 051120 053105 STAER7: :ASCIZ /ZAPREVIOUS CMD WAS XXX/ 

3560 006276 051445 030461 040445 STAER6: :ASCIZ /%S11ZA* RECORD READ:2D5ZA * 

2561 006332 047045 040445 046503 STAER2: .ASCIZ Hae eNO PRTLeoeAT EO ALeRZARFCXSSBATSSRYS3ZATCCIN/ 

2562 006411 045 033117 051445 STAERS: -ASCIZ /ZO6ES2406ES22062S22063S220 12N/ 

2563 006447 045 033117 047045 STAERG: :ASCII /%06%N 

5564 006454 047445 022466 116 “ASE | /2OGEN/ 

2565 006461 045 033117 047045 “ASCIZ /306%N/ 

2566 006467 045 054101 052123 STAERS: LASCII /%AXSTOZS4ZAXST12S4%AXST2%S6%AXST32N/ 

3567 006532 047445 022466 031123 “ASCIZ /%06%S2%06%S2%06%S2206%N/ 

2568 “LIST BEX 

2569 “EVEN 

2570 006562 000000 RECRED: .WORD 0 ;RECORD READ FROM TAPE 

2572 006564 ENDMSG 
(3) 006564 110003: 


(3) 006564 104423 TRAP CSMSG 
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2574 

2575 

2576 

2577 

2578 

2579 

2580 

2581 

2582 006566 
(3) 006566 

2583 006 
(6) 006566 

2584 006572 
(3) 006572 
(2) 006572 

2585 

2586 006574 
(3) 006574 

2587 006574 
(6) 006574 

2588 006600 
(3) 006600 
(2) 006600 

2589 

2590 006602 
(3) 006602 

2591 006602 
(6) 006602 

2592 006606 
(3) 006606 
(2) 006606 

2593 

2594 006610 
(3) 006610 

2595 006610 
(6) 006610 

2596 006614 
(3) 006614 
(2) 006614 
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005237 


000002 


005237 


000002 


005237 


000002 


005237 


000002 


003500 


003502 


003504 


003506 
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GLOBAL SUBROUTINES SECTION 


eSBITL 


GLOBAL SUBROUTINES SECTION 


" : THe GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
; THAT ARE USED IN MORE THAN ONE TEST. 


TS4INO:: 


L10004: 


TSG4INI:: 


L10005: 


TS4IN2:: 


L10006: 


TS4IN3:: 


L10007: 


MODULES TO HANDLE TU80 INTERRUPTS. 


BGNSRV TS4INO 
LET INTFLG := 
ENDSRV 


INTFLG + #1 


BGNSRV TS4INI 
LET INTFLGt2 := 
ENDSRV 


INTFLG+2 + #1 


BGNSRV TS4IN2 
LET INTFLG#4 := 
ENDSRV 


INTFLG+4 + #1 


BGNSRV TS4IN3 
LET INTFLG+6 := 
ENDSRV 


INTFLG+6 + #1 


sDEVICE 0. 
3SET INTERRUPT OCCURRED — 


RTI 


sDEVICE 1. 
SET INTERRUPT OCCURRED aa 


RTI 


sDEVICE 2. 
SET INTERRUPT OCCURRED a 


RTI 


sDEVICE 3. 
SET INTERRUPT OCCURRED a 


RTI 


SEQ 0059 


INTFLG 


INTFLG#2 


INTFLG+4 


INTFLG+6 
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a > tage TO RETRIEVE RECORD COUNT READ FROM TAPE FOR ERROR 


OUTPUTS: R3 = RECORD COUNT READ 
REGISTERS: R2, R3, R4 
CALLS: 


RECTAP:: IF #MOD.CO SETIN CMDWRD THEN sREAD REV FETCH 
032737 000400 003430 BIT #MOD.CO, 
001430 BEQ 50001$ 
LET R2 := MSGPKT¢MS.RFC + DATARD ;FIND LAST READ AD. 
013702 002344 MOV MSGPKT+M 
063702 003420 ADD DATARD,R 
IF #B1T00 SETIN R2 THEN :0DD AD., REASSEMBLE 
032702 000001 BIT #B1T00,R 
001417 BEQ 50002$ 
LET R2 := R2 + #1 zREC COUNT STARTING 
005202 INC R2 
LET R3 :B= (R2) CLR.BY #177400 ;WITH UPPER BYTE FETCH 
111203 MOVB (R2) ,R3 
142703 177400 B1CB #177400, 
LET R3 := SWAP R3 : 
cunt LET R2 := R2 = #1 LOWER BYTE AD me ” 
005302 DEC R2 
IFB SWBFLG NE #0 THEN 
105737 TSTB 


edn LET R2 R2 = #1 LOWER BYTE AD. ON SWAP — 
005302 dues sa \ , DEC ——«R 


50003$ 
Sereda LET R4 :B= (R2) CLR.BY #177400 ;FETCH LOWER BYTE hod, un 
sect coro: LET R3 := R3 OR R4 MERGE BYTES #177400, 
050403 sy : R4,R3 
ELSE 
000401 50004$ 
LET R3: EVEN AD. FETCH sacaent 
011203 . : > (R2),R3 


ENDIF 
500048: 
ELSE 
000402 500058 
LET R3 := @DATARD READ Fu FETCH 
017703 @DATARD, 


ENDIF 
50005$: 
000207 RTS PC 
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SUBROUTINE TO STORE A_ SET CHARACTERISTIC COMMAND AS 
i ad ENTRY IN THE SEQUENCE TABLE. 


OUTPUTS: 
REGISTERS: 
CALLS: 


:: LET R1 := #CMDSEQ z INIT COMMAND SEQUENCE a a 


SEQ 
#SCH,(R1)+ sTHIS CODE SETS ve a SET CHARACTERISTIC” 
#DFTSCH, (R1)+ [COMMAND AS THE FIRST COMMAND IN THE 

; SEQUENCE TABLE. 

7SKIP PATTERN LOCATION. 


tt? Ha TO STORE A REWIND COMMAND IN THE SEQUENCE TABLE 


OUTPUTS: 
REGISTERS: 
CALLS: 


zs: LET (R1)¢ : sCMD = REWIND. 

012721 102010 #RWD, (RI 
LET (R1)+ : ;BRF. 

012721 000001 #1, (R1)+ 
LET (R1)¢* : 3:4 OF OPERATIONS. 

012721 000001 #1,(R1)+ 
TST (R1)+ ;SKIP PATTERN. 
RTS PC ;RETURN 
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at 4 3 syenoy es TO EXECUTE ALL COMMANDS IN THE SEQUENCE TABLE ON ALL 
2659 : INPUTS: 
2660 : OUTPUTS: R2 = TERMINATION INDICATOR (O=END OF TABLE, 1=EOT) 

2661 : REGISTERS: 
soee 3 CALLS: CMDAC,, SETUP, EXSUB, CKHAE ,NEXTU,F IRSTU, VF YDAT. 
2664 006760 EXALL:: LET R1 := #CMDSEQ : INIT SEQUENCE TABLE POINTER. 

(4) 006760 012701 003544 MOV MDSEQ, 
2665 006764 WHILE (R1) NE #END DO zWHILE THERE ARE CMDS IN THE SEQUENCE TA 
(4) 006764 50006$: 

(6) 006764 021127 177777 cMP (R1) ,#EN 
(9) 006770 001527 BEG 50007$ 
2666 006772 004737 007722 JSR PC,SETUP GO SETUP THE COMMAND BLOCK 

2667 006776 WHILE NCNT LT NCNT1 DO SWHILE THERE ARE RECORDS REMAINING: 

(4) 006776 50010$: 

(6) 006776 023737 003422 003424 cMP NCNT,NCN 
(9) 007004 002116 BGE 500118 
2668 007006 004737 007614 JSR PC,CMD :STORE CMD ASCII IN ERROR MESSAGE. 

2669 007012 1FB RANDOM NE #0 THEN ‘IF IN RANDOM MODE: 

(6) 007012 105737 003523 TSTB § RANDOM 
(9) 007016 001435 BEQ 50012$ 
2670 007020 IF CMDWRD EQ #WRT THEN zI1F CMD IS A WRITE THEN: 

(6) 007020 023727 003430 104005 cMP CMDWRD.# 
(9) 007026 001031 ENE 50013$ 
2671 007030 IFB VFYFLG EQ #0 THEN ;IF DATA IS NOT TO BE VERIFIED THEN: 

(6) 007030 105737 003524 TSTB ~=sCVFYFLG 
(9) 007034 001026 BNE 50014$ 
2672 007036 LET RANB := RANB + RANS ;GENERATE 

(6) 007036 063737 003444 003442 ADD RANS ,RAN 
2673 007044 LET RANS := RANS + RANB- ;RANDOM 

(6) 007044 063737 003442 003444 ADD RANB,R 
2674 007052 LET BRFCNT := RANS ;LENGTH 

(4) 007052 013737 003444 003426 MOV RANS .BRF 
2675 007060 LET BRFCNT := BRFCNT CLR.BY LENMSK ;MASK RANDOM LENGTH. 

(6) 007060 043737 003440 003426 C LENMSK,B 
2676 007066 IF BRFCNT LT #18. THEN D0 NOT ALLOW BYTE COUNT OF LESS 
(6) 007066 023727 003426 000022 CMP BRFCNT.# 
(9) 007074 002003 BGE 50015$ 
2677 007076 LET BRFCNT := #18. ;CHANGE COUNT OF 0-17 TO 18. 

(4) 007076 012737 000022 003426 MOV #18. .BRF 
2678 007104 ENDIF 

(4) 007104 50015$: 

2679 007104 LET CMDPKT+CP.CNT := BRFCNT ;MOVE BRF TO CMD PACKET. 

(4) 007104 013737 003426 002322 MOV BRFCNT,C 
2680 007112 ENDIF 

(4) 007112 500148: 

2681 007112 ENDIF 

(4) 007112 500138: 

2682 007112 ENDIF 

(4) 007112 500128: 

2683 007112 004737 007254 JSR PC,EXSUB ISSUE CMD TO ALL, AWAIT NTS, CHECK STATU 
2684 007116 004737 017222 JSR PC, CKHAE [CHECK HALT AFTER EACH CMD FLAG. 

2685 007122 LET R2 := #1 :SET ALL UNITS AT BOT/EOT. 

(4) 007122 012702 000001 MOV #1,R2 


2686 007126 004737 016614 JSR PC,FIRSTU zFIND FIRST UNIT. 
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WHILE DEVTBL(RS) NE #END DO ;WHILE THERE oe 
026527 002536 177777 CMP DEVTBL(R 
001426 BEQ 50017$ 
IF #MOD.CO SETIN CMDWRD THEN ;IF CMD IS REVERSE THEN: 
032737 000400 003430 BIT 
001406 BEQ 
IF #X0.BO0T NOTSETIN EOTFLG(R5) THEN ;IF NOT AT BOT 
032765 000002 003510 BIT 
001001 BNE 5002 
LET R2 := #0 CLEAR EOT/BOT FLAG. 
CLR R2 
ENDIF 


50021$: 
ELSE sELSE IF CMD IS NOT REVERSE: 
000411 BR 50022$ 


50020$: 
IF #X0.EOT NOTSETIN EOTFLG(RS) OR #CMD.CO NOTSETIN CMDWRD THEN 
032765 003510 BIT #x0.EOT, 
001404 BEQ 500238 
032737 003430 BIT acre 60. 
001001 BNE 50024$ 


005002 


50023$: 
z1F NOT AT EOT OR NOT A MOTION CMD THEN: 
LET R2 := # CLEAR EOT/BOT FLAG. R2 


ENDIF 
50024$: 


ENDIF 
50022$: 
004737 engi PC,NEXTU ;FIND NEXT UNIT 
000746 BR 50016$ 


50017$: 

IF R2 EQ #1 THEN :I1F ALL UNIT ARE AT EOT/BOT THEN: 
oroee? CMP 
000412 BR EXARTN ;RETURN WITH R2 = 

ENDIF $$ 


5002 

LET NCNT := NCNT + #1 ;UPDATE RECORD COUNT. 
005237 003422 INC NCNT 

LET PCMDWD := CMDWRD 3SAVE PREVIOUS COMMAND WORD. 
013737 003430 003434 000 MOV CMOWRD ,P 
000656 500118: BR 500108 
004737 015370 JSR PC, VFYDAT 31F LAST CMD WAS A WRITE VERIFY, THEN GO 

eneo [VERIFY THE LAST N RECORDS OF DATA. 


000646 cons BR 500068 
LET R2 := # :SET NORMAL RETURN INDICATOR. 


005002 R2 
000207 EXARTN: RTS PC ;RETURN. 
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SUBROUTINE TO ISSUE COMMAND TO ALL DEVICES, WAIT FOR 
Oe cp apaltine: AND CHECK ALL STATUS. 


OUTPUTS: 
REGISTERS: 
CALLS: 


EXCUTE ,GOWAIT ,NEXTU,FIRSTU. 


004737 016614 38 JSR PC,FIRS SET UP_FOR FIRST UNIT. 
WHILE SEVIBL (RS) NE #END DO ;WHILE THERE ARE MORE DEVICES: 


026527 002536 177777 cMP DEVTBL(R 
001 é : 50027$ 


465 BEQ 
IF #MOD.CO SETIN CMDWRD THEN ;IF CMD IS REVERSE THEN: 
032737 000400 003430 BIT #MOD.CO, 
001421 BEQ 50030$ 
IF #X0.B0T NOTSETIN EOTFLG(RS) THEN ;IF NOT AT BOT 
032765 000002 003510 BIT #x0.B0T, 
001014 BNE 50031$ 
IF #X0.EOT SETIN EOTFLG(R5) THEN ;BUT IF AT EOT 
032765 000001 003510 BIT or Ser 


001406 BEQ 

IFB ALLEOT NE #0 THEN zAND ALL OTHERS AT EOT 
105737 003532 TS ly ALLEOT 
001402 BEQ 50033$ 
004737 010576 JSR PC,EXCUTE 3; THEN ere REV _ CMD 

ENDIF IF NOT ALL_AT EOT, FREEZE UNIT( 


50033$: 
ELSE :1F NOT AT BOT AND 
50034$ 
50032$: 


010576 ae NOT AT EOT, EXEC RCV CM 


non 50034$: 


50031$: 
ELSE sELSE IF CMD IS NOT REVERSE: 
000435 BR 50035$ 


50030$: 
IF CMDLG EQ #2 AND #X0.BOT SETIN EOTFLG(RS) THEN 
023727 003436 000002 CMP CLS fe 


BNE 
000002 0035:9 BIT #x0.BOT, 


BEQ 50036$ 
;CLEAR BAD SPOT COUNTS WHEN WRITING FROM 
LET BTPT := BTADDR(RS)” 
016537 002550 003520 MOV BTADDR(R 
LET @BTPT := #0 
005077 174124 CLR @BTPT 
ENDIF 


50036$: 
IF #X0.EOT NOTSETIN EOTFLG(RS) OR #CMD.CO NOTSETIN coe THEN 
032765 000001 003510 BIT #xX0.EOT, 
001404 BEQ 50037$ 
032737 000001 003430 BIT #CMD.CO, 





N 5 
GLOBAL AREAS MACY11_30(1046) 12-JUL-83 09:44 PAGE 42-3 GLO 
CZTUVB.P11 12=JUL=83 09:26 GLOBAL SUBROUTINES SECTION SEQ 0065 c2T 


001003 BNE 500408 


50037$: 
z1F NOT AT EOT OR NOT A MOTION CMD THEN: 
004737 010576 Pt PC ,EXCUTE zISSUE CMD TO TU8O. 


000405 BR 50041$ 


50040$: 
IFB ALLEOT NE #0 THEN 
105737 003532 iby ALLEOT 


50042$ 
010576 JSR PC,EXCUTE 
ENDIF 


ENDIF 
ENDIF 


50035$: 
chee PC .NEXTU ;FIND NEXT UNIT IN TEST CYCLE. 
000707 BR 50026$ 


50027$: 
IFB RPTFLG NE #0 THEN 71F REPORT HAS BEEN cris 4 y THEN: 

105737 003525 RPTFLG 
001403 bea” 500438 

LET RPTFLG :B= #0 CLR THE FLAG, 
105037 003525 CLRB RPTFLG 

DORPT ;PRINT THE PERFORMANCE REPORT. 
104424 pelt TRAP CSDRPT 


2008: 
004737 016614 JSR PC,FIRS SET UP _FOR FIRST UNIT. 
WHILE SEVTBL(RS) NE #END DO :WHILE THERE ARE MORE DEVICES: 


026527 002536 177777 cMP DEVTBL(R 
50045$ 


001450 BEQ 
IF #MOD.CO SETIN CMDWRD THEN ;IF CMD IS REVERSE THEN: 
032737 000400 003430 BIT #MOD.c0, 
001421 BEQ 500468 
IF #X0.BOT NOTSETIN EOTFLG(RS5) THEN ;IF NOT AT BOT 
032765 000002 003510 BIT eno Sot. 


001014 BNE 

IF #X0.EOT SETIN EOTFLG(RS) THEN ;BUT IF AT EOT 
032765 000001 003510 BIT #x0.EOT, 
001406 508 


BEQ 
IFB ALLEOT NE #0 THEN zAND ALL_OTHERS AT EOT 
105737 003532 TSTB ALLEOT 
001402 BEQ 50051$ 
004737 011166 JSR PC,GOWAIT THEN WAIT FOR CMD END 
ENDIF :1F mr ALL AT EOT, DON 


0051$: 
ELSE NOT AT BOT, AND NOT AT 
000402 BR 50052$ 
50050$: 
004737 011166 DI aaa sWAIT FOR INT,CH 


007542 50052$: 


50042$: 
50041$: 
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000420 


032765 
001404 
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001003 
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000405 


105737 
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004737 
000724 
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000001 
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011166 
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003510 
003430 


ENDIF 
50047$: 
ELSE sELSE IF CMD IS omens 


50053$ 


50046$: 
IF #X0.EOT NOTSETIN EOTFLG(RS) OR #CMD.CO sted <> CMDWRD OAD ECT. 
$0054 $ 


55$ 


50054$: 
71F NOT AT EOT OR NOT A MOTION CMD THEN: 


ts PC ,,GOWAIT sWAIT FOR INT,CHECK STATUS. 


BR 50056$ 
50055$: 
IFB ALLEOT NE #0 THEN 
ALLEOT 
50057$ 
JSR PC,GOWAIT 
ENDIF 


50057$: 
50056$: 


ENDIF 
ENDIF 


50053$: 
JSR PC ,NEXTU FIND NEXT UNIT IN TEST CYCLE. 
ENDDO 


BR 
50045$: 
RTS PC ;RETURN. 





a2 
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THIS ow STORES THE mgt} FOR THE CURRENT COMMAND AND PREVIOUS 
COMMAND IN THE STANDARD ERROR MESSAGE. ON ENTRY LOCATION CMDWRD 
a CURRENT CMD AND LOCATION PCMDWD CONTAINS PREVIOUS CMD. 


OUTPUTS: 
REGISTERS: R3, R4. 
CALLS: GCMDA 


oorele :: LET R4 := CMDWRD 3R4 = CMD BINARY. 


PC 3GET CMD ASCII. 
ATi be OTAERI#2 [MOVE CMD ASCII 
(R3)+ STAERI #3 


CMDWRD ,R 


006157 3 
006160 3) ,STAER1+4 z INTO MSG. 
:= PCMDWD 3R4 = PREVIOUS CMD BINARY. 
003434 MOV PCMDWD ,R 
007670 PC.GCMDA 3GET CMD ASCII. 


NOP 
LET STAER7+24 :B= sMOVE CMD ASCII 

006272 MOVB (R3)+,ST 
LET STAER7+25 :B6= é 

006273 MOVB (R3)+,ST 
LET STAER7+26 :B= zs INTO MSG. 

006274 MOVB (R3),STA 
RTS PC ;RETURN. GO EXECUTE NEXT FUNCTION. 


SUBROUTINE TO FIND THE ASCII EQUIVILENT OF THE COMMAND IN R4. 
ra OF ASCII Md WORD IS RETURNED IN R3. 


INP = OMMAND WORD. 
OUTPUTS: R3 = ADDRESS OF PRESENT COMMAND ASCII. 
CALLS: 


:: LET R3 := #0 INIT CMD TBL POINTER. 
005003 CLR R3 
WHILE CMDTBL(R3) NE R4 DO sUNTIL CURRENT gt A ats 


026304 003646 cMP CMDTBL(R 
001403 BEQ 50061$ 
LET R3 z= R3 + #2 ;SEARCH CMD TABLE. 
062703 000002 ADD #2,R3 
ENDDO 
000772 BR 500608 
R3 50061$: 


010304 : MOV R3,R4 
:= R3 SHIFT -1 :POINT TO ASCII FOR THAT COMMAND 
006203 ' ASR R3 


R4,R3 
003734 #CMDASC ,R3 
007720 000207 PC ;RETURN. 
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THIS SUBROUTINE LOADS THE TU80 COMMAND PACKET FROM ONE 
toes THE SEQUENCE TABLE. 


OUTPUTS: 
REGISTERS: R2, R3. 
CALLS: GENPAT. 
:: LET CMDLG := 40 sCLR CMD LOGGING Se a 


(R1)+,CMDPKT ;LOAD THE COMMAND WORD. 
(R1),CMDPKT+CP.CNT [LOAD THE BYTE/RECORD/FILE COUNT. 
BRF CNT : SAVE BRF FOR THIS COMMAND. 


MOV CMD. 
177740 ;CLR_ALL BUT CMD BITS. 
R2,R ;SAVE IT TWICE. 
000010 #CMD.C3,R3 POSITION COMMAND? 


:BR IF NOT. 
002316 (R1),CMDPKT+2 MOVE BPCR IN 2ND PKT WORD FOR POSITION 


BR 
2 IF CMDPKT EQ #WTM THEN 3IF CMD IS A WRITE TAPE MARK THEN: 
023727 002314 100011 CMP CMDPKT ,# 
001003 BNE 50062$ 
LET CMDLG := #2 sWTM LOGGING CODE IS 2. 
012737 000002 003436 MOV #2,CMDLG 


ENDIF 
50062$: 
010203 MOV R2,R3 
000001 SUB #CMD.CO,R3 


003436 


R 
BNE 1 : 
013737 003420 002316 MOV DATARD ,CMDPKT+CP.ADL ; OAD THE BUFFER ADDR. 
IF #MOD.CO SETIN CMDPKT THEN ; S A READ REV THEN: 
oe. 000400 002314 BIT #MOD.CO 


BEQ 50063$ 
LET CMDLG := #4 sLOGGING CODE IS 4. 
012737 000004 003436 MOV #4,CMDLG 
ELSE sELSE - IF CMD IS A READ FWD: 
000403 BR 50064$ 


50063$: 
LET CMDLG : sLOGGING CODE IS 6. 
012737 003436 MO #6,CMDLG 


50064$: 
; CONTINUE. 


: Vv R2,R3 31S IT 
000004 ben #CMD.C2,R3 3A_SET CHARACTERISTICS CMD? 


:BR I ° 
CMDPKT+CP.ADL := #SCHBK ;SET UP ADR LO FOR SET CHAR. 
002446 002316 MOV #SCHBK ,C 
000010 002322 MO #SCHCNT,CMDPKT+CP.CNT ;SET BUFFER EXTENT 
SCHBK+6 := (R1) ZSTORE CHARACTERISTIC CODE IN SCH BLOCK. 
002454 MOV (R1),SCH 
3$ ; CONTINUE. 


: R2,R3 : T 
000006 UB $CRO.CIICHD.C2.RS 3A so (DIA) CMD? 
000020 002322 #DIACNT, CMDPKT+CP.CNT SLOAD BUFFER EXTENT. 


Sess seeesveeer sr eee 
cesses 22 Sees 


SOOCSCSCSCOCSCOOCOSCOOoOoOooooooo 
a— 


me ee ee ee ee ee ee ee ee ed eed ed od od od = = 


scssssscs 
—3 = Se 


—— 
ako 
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2862 010124 012737 003416 002316 MOV #O01ABLK,CMDPKT+CP.ADL NT a FER ADR LOW. 
2863 0101352 005721 3$: TST (R1)+ sPOINT N (NUMBER OF TIMES TO EXECUTE 
2864 010134 er NCNT1 := (R1)+ 7 SAVE NUMBER OF OPERATIONS 

(4) 010134 012137 003424 MOV (R1)+,NC 
2865 010140 LET NCNT := #0 CLEAR OPERATION COUNTER. 

(4) 010140 005037 003422 CL NCNT 
2866 010144 012137 003456 MOV (R1)+,PATERN 3SAVE_ PATTERN CODE FOR CURRENT CMD. 

2867 010150 010203 MOV R2,R 1S IT 

2868 010152 162703 000005 SUB #CMD.CO!CMD.C2,R3 7A WRITE? 

2869 010156 001010 BN 5$ ;BR IF NOT. 

2870 010160 013737 003416 002316 MOV DATAWT ,CMDPKT+CP.ADL LOAD WRITE BUFFER LO ORDER. 
2871 010166 737 010300 JSR PC ,GENPAT 7GO0 GENERATE THE WRITE PATTERN. 
2872 010172 LT CMDLG := #2 [WRITE LOGGING CODE IS 2. 

(4) 010172 012737 000002 003436 MOV #2,CMDLG 
2873 010200 5$: IF #VFY.C SETIN CMDPKT THEN z1F DATA VERIFICATION IS REQUIRED: 

(6) 010200 032737 000100 002314 BIT #VFY.C.C 

(9) 010206 001407 BEQ 50065$" 
2874 010210 LET VFYFLG :B= #1 SET VERIFY FLAG. 

(4) 010210 112737 000001 003524 MOVB #1,VEYFL 
2875 010216 042737 000100 002314 BIC 3 #VFY.C,.CMDPKT CLEAR VERIFY BIT(NOT USED BY HARDWARE ) . 
2876 010224 ELSE zIF DATA VERIFICATION IS NOT REQUIRED: 

(4) 010224 000402 BR 500668 

(3) 010226 50065$: 

2877 010226 LET VFYFLG :B= 40 sCLR VERIFY FLAG. 

(4) 010226 105037 003524 CLRB VF YFiG 
2878 010232 ENDIF 

(4) 010232 50066$: 

2879 010232 LET PCMDWD := CMDWRD zSAVE PREVIOUS CMD WORD. 

(4) 010232 013737 003430 003434 MOV CMDWRD ,P 

880 010240 LET CMDWRD := CMDPKT SAVE PRESENT CMD WORD. 

(4) 010240 013737 002314 003430 MOV CMOPKT ,C 
2881 010246 IFB SWBFLG NE #0 THEN z1F SWAP BYTES IS ENABLED: 

(6) 010246 105737 003526 TSTB SWBFLG 

(9) 010252 001403 BEQ 50067$ 
2882 010254 LET CMDPKT := CMDPKT SET.BY #SWB.C ;SET SWAP BIT IN COMMAND. 

(6) 010254 052737 010000 002314 BIS #SwB.C.C 
2883 010262 ENDIF 

(4) 010262 50067$: 

2884 010262 042737 004000 002314 BIC #BRF.C,CMDPKT CLR BRF BIT CINTERNAL ONLY). 
2885 010270 LET CMDSAV := CMDPKT [SAVE 1ST WORD OF COMMAND PACKET. 

(4) 010270 013737 002314 003432 MOV CMDPKT .C 

2886 010276 000207 RTS PC ;RETURN. 
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2888 : THIS SUBROUTINE SETS UP AND CALLS THE APPROPRIATE SUBROUTINE TO GENERAT 
2889 : THE DESIRED PATTERN FOR THE WRITE AND WRITE/VERIFY COMMANDS. 
2890 : INPUTS: 
2891 : OUTPUTS: 
2892 : REGISTERS: R2, R3, 
se : CALLS: PATRO - BAiR? 
2895 010300 GENPAT:: LET R3 := PATERN SHIFT 1 ;SETUP PATTERN ROUTINE POINTER 
(4) 010300 013703 003456 MOV PATERN,R 
(7) 010304 006303 ASL R3 
2896 010306 LET RG := BRFCNT + #1 ;SET LENGTH OF WRITE BFR 
(4) 010306 013704 003426 MOV BRFCNT,R 
(6) 010312 005204 INC RG 
2897 010314 LET R46 := R4 CLR.BY #1 ;ROUNDED UP TO NEXT WORD 
(6) 010314 042704 000001 BIC #1,R4 
2898 010320 LET RG := RG = #2 :WITH FIRST WORD RESERVED 
(6) 010320 162704 000002 SUB #2,R4 
2899 010324 LET R2 := DATAWT + #2  ;FOR RECORD COUNT 
(4) 010324 013702 003416 MOV DATAWT,R 
(6) 010330 062702 000002 ADD #2,R2 
2900 010334 004773 010342 JSR PC,@PATTBL(R3) ;GO GENERATE THE APPROPRIATE PATTERN. 
2901 010340 000207 RTS PC *RETURN TO SETUP SUBROUTINE. 
2902 :TU80 WRITE PATTERN LOOKUP TABLE. USED TO JSR TO THE 
2904 “CORRECT DATA PATTERN GENERATING ROUTINE. 
2906 010342 010364 PATTBL: PATRO : INCREMENTING PATTERN, 0 - 377 
2907 010344 010422 PATRI + ALL ONES 
2908 010346 010442 PATR2 Sat ees PAT TERN 
010350 010452 PATR3 : "1" BIT SHIFT, RIGHT TO LEFT 
2910 010352 010476 PATR4 ; °° BIT SHIFT, RIGHT TO LEFT 
2911 010354 010510 PATRS + ALTERNATE 'O°'@ ‘1° WITH ALT. BYTES COMPL. 
2912 010356 010522 PATR6 : ALTERNATE BYTES OF 000 AND 377 
2913 010360 010542 PATR? : RANDOM PATTERN. 
2914 010362 010574 PATRS + DUMMY. NO PATTERN, JUST EXITS. 
2916 
3318 sINCREMENTING PATTERN. 0 = 377. 
2919 010364 PATRO:: LET R3 := #400 
(4) 010364 012703 090400 MOV #400,R3 
2920 010370 1$: LET R4 := R4 = #2 sDECREMENT WORD COUNT. 
(6) 010370 162704 000002 SUB #2,R4 
2921 010374 100411 BMI 2$ :BR IF DONE. 
2922 010376 LET (R2)+ := R3 *STORE DATA WORD. 
(4) 010376 010322 MOV R3,(R2)+ 
2923 010400 LET R3 := R3+ #1002 UPDATE PATTERN. 
(6) 010400 062703 001002 ADD #1002,R3 
2924 010404 IF R EQ #1000 THEN IF PATTERN HAS WRAPPED AROUND THEN: 
(6) 010404 020327 001000 CMP R3, #1000 
(9) 010410 001002 BNE 506708 
2925 010412 LET R3 := #400 sINIT THE PATTERN AGAIN. 
(4) 010412 012703 000400 MOV #400,R3 
2926 010416 ENDIF 
(4) 010416 50070$: 
2927 010416 000764 BR 1$ :D0 IT AGAIN. 
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010420 000207 2s: RTS PC ;RETURN. 
sALL ONE'S PATTERN. 


012703 177777 PATR1:: MOV #1 R3 zALL_ONES PATTERN;. 
ZROPAT: LET R4 := R4 = #2 ;DECREMENT BYTE COUNT. 
162704 000002 SUB #2,R4 
10040 3DONE?,BR IF 
010322 RS, (R2)* IF NOT LOAD NEXi BYTE WITH PATTERN. 
000773 ZROPAT 300 IT AGAIN. 


000207 : PC RETURN. 
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soso zALL ZEROES PATTERN. 
2942 010442 005003 PATR2:: CLR R3 ZCLR PATTERN REGISTER. 
2943 010444 004737 010426 JSR PC, ZROPAT +60 GENERATE IT. 
ou 010450 000207 RTS PC RETURN. 
2546 sONE BIT WALKING FROM R TO L IN A FIELD OF ZEROES. 
2948 010452 012703 000401 PATR3:: MOV #401,R3 sINIT PATTERN REGISTER. 
2949 010454 WLKZRO: LET R4 := R4 = #2 [DECREMENT WORD COUNT. 
(6) 010456 162704 000002 SUB #2,R4 
2950 010462 100404 BMI 1$ :BR IF DONE. 
2951 010464 010322 MOV R3, (R2)+ *LOAD DATA. 
2952 010466 006303 ASL R3 [SHIFT PATTERN 
2953 010470 005503 ADC R3 TADD CARRY BACK INTO PATTERN. 
2954 010472 000771 BR WLKZRO :DO IT AGAIN. 
2955 010474 000207 1$: RTS PC RETURN. 
39e8 ;ZERO BIT WALKING FROM R TOL IN A FIELD OF 1°S. 
2959 010476 012703 177376 PATR4:: MOV #177376, RS ZINIT PATTERN REGISTER. 
2960 010502 004737 010456 JSR PC sil WLKZRO :GO GENERATE ;IT. 
961 010506 000207 RTS PC RETURN. 
2963 ZALTERNATING ONE AND ZERO BITS WITH ALTERNATE BYTES 
2964 > COMPLEMENTED. 
2966 010510 012703 125125 PATRS:: MOV #125125,R3 ZINIT PATTERN REGISTER. 
2967 010514 004737 010426 JSR PC, ZROPAT 760 GENERATE IT. 
2968 010520 000207 RTS PC RETURN. 
2970 sALTERNATING BYTES OF 000 AND 377. 
2972 010522 012703 177400 PATR6:: MOV #177400,R3 zINIT PATTERN REGISTER. 
2973 010526 1$: LET R4 := R4 = #2 SDECREMENT WORD COUNT. 
(6) 010526 162704 000002 SUB #2,.R4 
2974 010532 100402 BMI 2$ zBR IF DONE. 
2975 010534 010322 MOV R3,(R2)+ [LOAD DATA. 
2976 010536 000773 BR 1$ :D0 IT AGAIN. 
2977 010540 000207 2$: RTS PC RETURN. 
3444 ;RANDOM PATTERN GENERATOR 
2981 010542 PATR7:: LET RG := RG = #2 ;DECREMENT WORD COUNT 
(6) 010542 162704 000002 SUB #2,R4 
2982 010546 100411 BMI GIT :BR IF DONE. 
2983 010550 063737 003444 003442 ADD RANS ,RANB 
2984 010556 063737 003442 003444 ADD RANB,RANS :GET NEW #. 
2985 010564 013722 003444 MOV RANS, (R2)+ SSAVE &#. 
2986 010570 000764 BR PATR? CONTINUE. 
2987 010572 000207 GIT: RTS PC RETURN 
2989 : NO PATTERN GENERATION. 
2990 


2991 010574 000207 PATR8:: RTS PC ;RETURN. 
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SEQ 0073 


5 SUBROUTINE INITIATES ie COMMAND EXECUTION 


— FOR TU80 RESPONSE 


OUTPUTS: 
REGISTERS: R2, 
CALLS: 


::LET TIME] := #1 


REPEAT 
LET TIME1 := TIME] = #1 
IF TIME1 EQ #0 THEN 


JSR PC, MOVMSG 
ERRDF se NSSRM, STAERM 


JSR PC, DROPU 
BR_ EXCRIN 
ENDIF 


UNTIL #TS.SSR SETIN @TSSR(R5S) 
IF CMDWRD EQ #SCH THEN 


LET RSSAVE := R5 


JSR _ PC,FIRS 
WHILE DEVTBL CRS) NE #END DO 


JSR PC,WSSR 
JSR PC,NEXTU 
ENDDO 


LET RS := RSSAVE 
LET SCHBK := MSGPKA(RS) 
ENDIF 
LET R3 := MSGPKA(RS) 
LET R2 := #0 
WHILE R2 NE #MSGCNT DO 


50073$: 
ADR OF THIS UNIT'S MSG es 


R3. 
DROPU, MOVMSG, FIRSTU, NEXTU, WSSR. 


z INIT TIMEOUT COUNTER. 
zWAIT - 

50071$: 
sUPDATE TIMEOUT COUNTER. 


DEC TIME 
z1F TIMED OUT: 
TST TIME 
BNE 50072$ 
MOVE CURRENT PACKET MSG. 
TREPORT TU8O NOT READY 
TRAP CSERDF 
WORD 2 


“WORD NSSRM 
“WORD STAERM 


#-1, TIME 


;DROP THE UNIT. 
;RETURN. 
50072$: 
sWAIT UNTIL DEVICE IS nent. 
BIT #TS.SSR, 


BEQ 50071$ 
z1F WE ARE DOING A SET -_ CMD THEN: 


CMDWRD, 
500738" 


BNE 
sSAVE CURRENT DEVICE POINTER. 
MOV RS ,.RSSAV 


zFIND FIRST UNIT. 


50074$: 
CMP DEVTBL(R 
75$ 


BEQ 500 
sWAIT FOR UNIT READY OR TIME OUT, 
zFIND NEXT UNIT. 


BR 500748 
50075$: 
sRESTORE CURRENT DEVICE POINTER. 
RSSAVE .R 


3SET UP ADR OF MSG PKT_IN SCH BLOCK. 
MOV MSGPKA(R 


MSGPKA(R 
:CLR COUNTER. 


CLR R2 
sWHILE THERE ARE MORE LOCATIONS: 
50076$: 
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010732 020227 000016 CMP R2,#MSGC 
010736 001405 BEQ 50077$ 
LET (R3)+ := #1 sINIT THE MSG PACKET WITH ALL 1°S 


012723 177777 #-1,(R3) 
LET R2 := R2 + #2 sUPDATE COUNTER. 
062702 000002 ADD #2,R2 
ENDDO 
000770 BR 50076$ 


50077$: 
105737 002212 TST8 DINT z;ARE INTERRUPTS DISABLED. 
001023 F 


BN 3 YES. 
IFB INTFLG(RS) GT #1 THEN :1F MORE THAN ONE INTERRUPT HAS OCCURED: 
CMPB INTFLG(R 


BLE 50100$ 
LET TSSREG := @TSSR(R5) sFREEZE THE CURRENT STATUS REG F 


017537 002466 MOV @TSSR(RS 
ERRDF 15,TOOMM,STAERM ;REPORT TOO MANY INTERRUPTS. 


126527 003500 
003412 


oooo°o 
SSxssasSs 


WORD TOOMM 
WORD STAERM 
016716 JSR PC ,DROPU ;DROP THE UNIT 
BR_ EXCRIN RETURN = UNIT HAS BEEN DROPPED. 


$3 


003500 
052737 000200 002314 BIS #1E.C,CMDPKT zSET INT ENABLE BIT. 
: IFB ERRREC EQ #0 THEN 3iF NOT RETRYING 
105737 003477 TSTB ERRREC 
001005 BNE 


50101$ 
LET RECCNT(R5) := RECCNT(RS) + #1 
005265 003330 INC RECCNT(R 
LET @DATAWT := RECCNT(RS5) THEN UPDATE REC COUNT TO WRITE IT ON TA 
016577 003330 172350 en MOV RECCNT(R 


50101$: 
IF LSTEST EQ #3 AND CMDWRD EQ #WRT THEN 
023727 002114 000003 LSTEST .# 
BNE 501028 


£95430 104005 


ed ed aed ed od 
ORESSN 


50100$: 
LET INTFLG(R5) := 40 CLR INTERRUPT FLAG FOR THIS DEV. 
LR INTFLGC(R 


0 
0 
0 
0 
0 
0 
0 
0 


oo 


ISOS 


‘ 
¢ 


IF NCNT GT #3500. THEN 
023727 003422 006654 NCNT #35 
003414 


50103$ 
DELAY 15. 

012727 000017 #15. (PC 
000000 0 
013727 002116 m0 LSDLY, (P 
000000 
005367 177772 -6(PC) 
001375 BNE : 
005367 177756 =22(PC) 
001367 BNE .-20 


“N 
RVAAS 


Mronn--—— 
AOLOONS 


50103$: 
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3044 011126 ENDIF 
(4) 011126 50102$: 
3045 011126 012775 002314 002456 MOV #CMDPKT ,aTSDB(RS) ;LOAD TSDB WITH CMDPKT ADDRESS 
3046 [THIS INITIATES COMMAND — 
3047 011134 IF #TS.SSR SETIN @TSSR(RS) THEN ;IF READY DID NOT DROP THEN: 

(6) 011134 032775 000200 002466 BIT #TS.SSR, 
(9) 011142 001410 BEQ 50104$ 
3048 011144 004737 011552 JSR PC, MOVMSG sMOVE CURRENT ap pee PACKET TO COMMON 

3049 011150 ERRDF 3,TOERM,STAERM ;REPORT NO TU80 RESPONSE. 
(4) 011150 104455 TRAP CSERDF 
(5) 011152 000003 WORD 3 
(5) 011154 004273 «WORD TOERM 
(5) 011156 005642 «WORD STAERM 
3050 011160 004737 016716 JSR_PC,DROPU ;DROP THE UNIT 
3051 011164 ENDIF 
(4) 011164 50104$: 
3052 011164 000207 EXCRTN: RTS PC ;RETURN. 


~ 


— 
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THIS SUBROUTINE WAITS FOR THE TU80 INERRUPT OR DONE BIT TO SET AND ALLOW 
OPERATOR TO TRANSFER CUNROL TO THE SUPERVISOR. 

UPON APPEARANCE OF THE INTERRUPT OR DONE, CHECK TSSR FOR STATUS ERRORS, 
bos aries AND ERRORS AND PERFORM ERROR RECOVERY IF NESSASARY. 


OUTPUTS: 
REGISTERS: R2, R3. 
CALLS: DROPU, MOVMSG, RECUD, CHKERR, LOG, CLRERR. 


IF DEVTBL(RS) EQ MNINUSE THEN 
026527 177774 CMP DEVTBL(R 
001002 


BNE 50105$ 
000540 BR 1$ 
ELSE 
000400 BR 50106$ 
50105$: 
ENDIF 


50106$: 
LET TIME1 := #-1 zINIT TIME OUT COUNTER. . 
REPEAT ;REPEAT UNTIL inten. OCCURES: 


BREAK :GO TO THE SUPER TO ALLOW TTY INPUT. 
104422 TRAP CSBRK 

IF CMDWRD EQ #RWD THEN 31F COMMAND WAS REWIND THEN: 
023727 003430 102010 CMP oe 


001014 BNE 5 

DELAY 10. WAIT EXTRA 10 MSECS EACH LOOP. 
012727 000012 MOV #10. , (PC 
000000 - WORD 


013727 002116 MOV LSDLY,(P 
000000 - WORD 
005367 177772 DEC ~6(PC) 


001375 BNE 274 
005367 177756 DEC =22(PC) 
001367 BNE -720 


ENDIF 
50110$: 
IF CMDWRD EQ #SFF OR CMDWRD EQ #SFR THEN 


Soo 


MNMRONMNOCOCOCO/NNNyNT 


012737 177777 003446 #-1, TIME 


Mronrnrnrvnrnny 


ee ee ee ee ee ee ee ee ee ee ae ee ee ed ed ed ed ed ed ed 
moro nononr 
NNN 3 


WAS & 


RVONNNNORNS ROO 


ee ce ce ce ee ee ce ce ce ce ee ee ee ce cee ce ee ce ce ed ee ce ed ed ed ed ed ed 
NMororononornrr 


023727 003430 105010 cMP CMDWRD .# 
BEQ 501118 


001404 
023727 003430 105410 CMP CMDWRD .# 
001014 aie 50112$ 
DELAY 12. ZADD DELAY FOR SPACE TAPE MARK COMMANDS 
012727 000014 MOV #12., (PC 
000000 
002116 MO LSDLY, (P 
177772 pec ~6(PC) 
177756 -22(PC) 
.-20 
ENDIF 
501128: 
IFB DINT EQ #0 THEN :IF INTERRUPTS ARE ENABLED. 


RUNUSS ES 
AWINNOS 


S25 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


et a a HH 
mk kd ek td ed td ot od ot ot ot ot ot I SS OS SI 


MMNMOFSN 
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105737 002212 TSTB DINT 
001003 BNE 501138 
LET R2 := INTFLG(R5) sFETCH INTERRUPT OCCURRED FLAG. 
016502 003500 MOV INTFLG(R 
ELSE z1F IN BRUTUS MODE: 
000406 BR 501148 


50113$: 
LET R3 := COMP #TS.SSR 3SET UP A MASK FOR THE — BIT. 


SESE ESSON 


012703 000200 
005103 
LET R2 := @TSSR(R5) CLR.BY R3 ;FETCH DONE BIT. 
017502 002466 MOV @TSSR(RS 
040302 BIC R3,R2 
ENDIF 
50114$: 

LET TIME? := TIME? = #1 sUPDATE TIMEOUT COUNTER. c rime? 
UNTIL R2 NE #0 OR TIME1 EQ #0 = ;REPEAT UNTIL INTERRUPT oN ecaatd OCCURES 
50115$ 
TIME 
50107$ 


#TS.SSR, 
R3 


ern 


005337 003446 


WAWAAW 
VIMMMIVIVIUT 
SOOAMNMUNGS 


BNE 
003446 TST 


eee 


50115$: 
IF TIME1 EQ #0 THEN z1F TIME OUT HAS OCCURRED: 
00573 TST 


7 TIME1 
001022 BNE 50116$ 
LET @DATAWT := RECCNT(RS) = #1 ;RE-ADJUST REC COUNT DOWN 
4 LA 003330 172012 MOV ath 


003446 


ANNAN 
ROSRSSS 


172006 DEC aDATAW 
011552 JSR _ PC,MOVMSG ;MOVE CURRENT MSG PACKET TO COMMON AREA. 
ERRDF 4,NOINTM,STAERM ;REPORT NO INTERRUPT. 


= a 
ALLO 


CSERDF 
4 


NOINTM 
STAERM 


3 
3 
3 
3 
3 
3 
4 
4 
4 
6 
4 
4 


Nm 
So 


016716 JSR PC,DROPU DROP THE UNIT. 
LET R3 := #ENDERF 
003500 MO #ENDERF , 
011502 mt: PC,CLRERR :CLEAR ALL ERROR FLAGS 
501178 
501168: 
552 JSR PC,MOVMSG MOVE CURRENT MSG. PACKET TO COMMON AREA 
1636 JSR PC,RECUD sUPDATE THE RECORD COUNT. 
012004 JS C,CHKERR CHECK FOR STATUS ERRORS. 
IFB WRTYFG EQ #0 THEN $ 
003471 TSTB WRTYFG 
501208 


014664 JSR PC,LOG ;LOG BYTES AND ERRORS. 
LET R3 := #ENDERF 
012703 003500 


MOV 
004737 011502 subir PC, CLRERR CLEAR ALL ERROR FLAGS 
501208: 
50117$: 


011 
01 


#ENDERF , 


ENDIF 
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3101 011500 000207 1$: RTS PC ;RETURN IF DONE. 





ne 
3 


: 


oO 
Ww 


WWW www WWWwWwoWw 
MRR) A PO es Wwe —_ 


A 
a oe 
WHEN 
whew 
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3 SUBROUTINE TO CLEAR FLAGS. 

3 INPUTS: R3 = LWA TO BE CLEARED + 2. 

3 OUTPUTS: 

3 REGISTERS: R2 

; CALLS: 
011502 CLRERR:: LET R2 := #BGNFLG 
011502 012702 003466 : MOV #BGNFLG, 
011506 REPEAT 
011506 50121$: 
011506 LET (R2)+ := #0 
011506 005022 CLR (R2)+ 
teat 020203 a CMP R2,R3 
011512 001375 BNE 50121$ 
011514 000207 RTS PC 

3 ae oh TO WAIT UNTIL CURRENT UNIT IS READY OR UNTIL TIME OUT. 

; OUTPUTS: 

; REGISTERS: 

: CALLS: 
011516 WSSR:: LET TIME1 := #1 z INIT TIMEOUT COUNTER. 
011516 012737 177777 003446 MOV #-1, TIME 
Griese REPEAT ;REPEAT UNTIL DEV ae OR TIMEOUT: 
011524 BREAK ;BREAK TO THE SUPERVISOR. 
01,524 104422 TRAP CS$BRK 
011526 LET TIME1 := TIME1 = #1 UPDATE TIMEOUT COUNTER. 
011526 005337 003446 DEC TIME1 
011532 UNTIL #TS.SSR SETIN @TSSR(RS) OR TIME1 EQ #0 
011532 032775 000200 002466 BIT #TS.SSR, 
011540 001003 BNE 50123$ 
011542 005737 003446 TST TIME1 
011546 001366 BNE 50122$ 
011550 50123$: 

;REPEAT UNTIL DEV READY OR TIMEOUT. 

011550 000207 RTS PC RETURN. 
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SUBROUTINE TO MOVE THE CURRENT MESSAGE PACKET TO THE COMMON AREA AND 
wutse THE CURRENT TERMINATION CLASS CODE. 


OUTPUTS: 
REGISTERS: 
CALLS: 


LET TSSREG := @TSSR(R5) sFREEZE THE STATUS REG CONTENTS 
017537 002466 003464 MOV @TSSR(RS 
LET R2 := TSSREG CLR.BY #TSC.TCC ;EXTRACT THE TERMINATION CLASS CODE, 
015708 MOV TSSR 


003464 EG,R 
042702 177761 BIC #TSC.TCC 
LET CTCC := R2 SHIFT -1 sAND SAVE IT 
010237 003460 MOV R2,CTCC 
006237 003460 ASR crcc 
LET R3 := MSGPKACRS) zADR OF THIS DEVICE'S MSG. 
016503 002506 MOV MSGPKA(R 
LET R2 := #0 sCLR COUNTER. 


005002 CLR R2 
WHILE R2 NE #MSGCNT DO WHILE THERE song agains 


020227 000016 CMP R2,4MSGC 
001405 BEQ 50125$ 
LET MSGPKT(R2) := (R3)+ sMOVE MSG TO COMMON AREA. 
012362 002340 MOV (R3)+,MS 
LET R2 := R2 + #2 ;UPDATE COUNTER. 
062702 000002 ADD #2,R2 
ENDDO 
000770 BR 501248 


50125$: 
LET EOTFLG(R5) := MSGPKT*#MS.XSO ;MOVE XSTATO TO EOT FLAG. 
013765 002346 003510 MOV MSGPKT+M 
000207 RTS PC 


COAannw QONMUIM Nv 
Be eS S SS SS IESE 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


ee ee ee ee ee ee ce ce cD ce ce ee ee ee ed ed ed eed ed ed etd 
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SUBROUTINE TO ADJUST THE RECORD COUNT. 
INPUTS: 


Ww 
— 
uw 
Ww 


OUTPUTS: 
REGISTERS: 
CALLS: 


WAN WNW 
ed aed aed ed 
MMMIVvIVviw 
OONOUE 


aS 


IFB RECLOG EQ #0 THEN z1F RECORD HAS NOT BEEN LOGGED: 
TSTB RECLOG 
BNE 50126$ 
RECCNT(R 
APE 


105737 003473 
001057 
LET RECCNT(R5) := RECCNT(RS) = #1 


005365 003330 DEC 
IF #B1TO NOTSETIN CTCC AND #X2.0PM SETIN MSGPKT+MS.XS2 THEN 
032737 000001 003460 BIT 

001046 BNE 


032737 100000 002352 BIT #X2.0PM, 

001442 BEQ 50127$ 
LET RECLOG :B= RECLOG + #1 ;SET RECORD LOGGED, 

105237 003473 INCB RECLOG 
IF CMDWRD EQ #RWD THEN zIF THIS IS A REWIND CMD: 

023727 003430 102010 CMP CMOWRD ,# 

001003 BNE 501308 

LET RECCNT(R5S) := #0 CLEAR RECORD COUNT, 
005065 003330 ELSE CLR RECCNT(R 
000431 BR 50131$ 


50130$: 
IF #BRF.C SETIN CMDWRD THEN 7 IF BRF USED, UPDATE RECORD COUN 
032737 004000 003430 BIT #68 
001425 BEQ 50132 
IF #MOD.CO NOTSETIN CMDWRD THEN ;IF A FORWARD CMD: 
Ones 000400 003430 BIT 


BNE 50 
IF #MOD.CO NOTSETIN PCMDWD THEN ;IF PREV CMD WAS A FWD ALSO: 
032737 000400 003434 BIT #MOD.cO0, 


001002 BNE 50134$ 
LET RECCNT(R5) := RECCNT(RS) + #1 ; INCREMENT RECORD COUNT. 
005265 003330 ENDIF INC RECCNT(R 


BAAEFSEEG 
COooFfsfr 


So ane 
QS 
ooo 


ee ee ee ee ee ed ed ed ed ed = 


$33 
S353 


MNONMNNSCO 


NONRIKR 3 et 


NNNNNNN NN SNS 
WWW 


RRS 
MVONNSN 


50134$: 
ELSE zIF REVERSE CMD: 

000412 501338 BR 50135$ 
IF #MOD.CO SETIN PCMDWD THEN ;IF PREVIOUS CMD WAS A REV ALSO: 
BIT #MOD.CcO, 

BEQ 50136$ 

IF #X0.B0T NOTSETIN EOTFLG(RS) THEN ;WHEN NOT AT BOT THEN 
032765 000002 003510 BIT gn GOT. 


— LET RECCNT(RS) := RECCNT(RS) = #1 DECREMENT RECORD COUNT 
005365 003330 ae : DEC — -RECCNT(R 


ENDIF 
50137$: 
ENDIF 
50136$: 
ENDIF 
50135$: 


etd oe os ot st SS ot I 


mee eee ee me me ee ee ee ee ee ee ee ee ee ce ee ee ce ee ee ee ee ee ed ed ed ed eed ed ed 
~“ ~N 
= 
a 


032737 000400 003434 
001406 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


—b a oe Ss 2 ss HS 
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ENDIF 
ENDIF 
ENDIF 
LET @DATAWT := RECCNT(RS) 
ENDIF 
000207 RTS PC 


016577 003330 171414 


;RETURN. 


50132$: 
50131$: 
50127$: 


50126$: 


MOV 


SEQ 0082 


RECCNT(R 





WAAANNNWWw 
DUP OD OOO D00000000000000 
Soooooo°oo 


223 St 
™m 
So 


Ww 


Soooooooooooecoo 
2233 SS SO 
POMEPIPIPONININDNINDPNPNINNY 
er er ear er ear rr ar er rr er ee er es 

So 


NON) @ 2 a es 


MACY11_30(1046) 
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026527 
001003 
000137 


000400 


032737 
001441 


023727 
001405 
ih eh ed 
00 


1002 
005265 


032737 


001004 
032737 
001412 
032737 
001003 
012702 


000402 


012702 


000402 


013702 


002536 
012230 


100000 


003460 


003477 
003270 


004000 
040000 


100000 


000005 


000004 


003460 
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177774 


003464 


000002 


003464 
003464 


002352 


Se te Ge Ge Ge te Ge Ge Se 


OUTPUTS: 
REGISTERS: R2, R4. 
CALLS: 





ECK SUSROUT II » AFTER INTERRUPT THIS 
TO ee THE TU80 STATUS. 
THEN THE TCC HANDLING SUBROUTINE IS ENTERED. 


ET 
RO FOR A COMMAND REQUIRING A BPCR, 
REPORTED, 


TCCO-TCC7. 


::I1F DEVTBL(RS) EQ #NINUSE THEN 


CMP DEVTBL(R 


ELSE 


ENDIF 


BNE 50140$ 
JMP 1$ 
BR 50141$ 
50140$: 
50141$: 
IF #TS.SC SETIN TSSREG THEN zI1F SPECIAL COND STATUS i SET — eet 
BEQ $01 42$° 
IF CTCC NE #2 THEN z1F TCC IS NOT 2 THEN: 
CTCC,# 
BEQ 5014 fs 
IFB ERRREC EQ #0 THEN sI1F NOT IN ERROR RECOVERY: 
TSTB ERRREC 
BNE 50144$ 
INC © SNT(RS) siNC SC COUNTER. 
ENDIF 
501448: 
ENDIF 
50143$: 
IF #TS.NXM SETIN TSSREG OR #TS.UPE SETIN TSSREG THEN he N na 
BNE p= hy 45$ 
BIT S.UPE, 
BEQ so1aes 
50145$: 
IF #X2.0PM NOTSETIN MSGPKT+MS.XS2 THEN ;AND TAPE NOT MO 
BIT #X2.0PM, 
BNE 501478 
LET R2 := #5 sSET TCCS INDEX 
MOV #5,R2 
ELSE 
501508 
50147$: 
LET R2 := #4 sTAPE MOVED, SET TCC4 INDEX 
MOV #4 ,R2 
ENDIF 
50150$: 
ELSE 
50151$ 
501468: 
LET R2 := CTCC sSET DETECTED TCC INDEX 
MOV CTCC,R2 
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SOSOSCSCOO COCOOCCOOCOOCOOCOOoOOoCOoOoOoO 
ee ee es td ot ot oS SS SY YS OS SS 
SSXNASR SLEROVSRESLEKAORRRRR 


et ek et ek ak ek el a ed ed ed ed ad od dd 
POPOPONENENENMD = POROPOPOPononononononofenoferonononnrn 


2 Ss 
rrr 

Mmrr 

SS 

™ 


SOSCSCCOCOOCOCOCOOCOoOooooo 
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ENDIF 
LET R2 := R2 SHIFT 1 ; CURRENT TCC X 2. 
00630 ASL R2 
004772 012232 ati PC ,aTCCRA(R2) GO TO THE TCC HANDLING SUBROUTINE. 
000430 501428 BR 50152$ 
IF #BRF.C SETIN CMDWRD THEN ;IF BRF IS USED IN THIS CMD THEN: 
BIT gonescee 


MSGPKT+M 
50154$ 


50151$: 


032737 003430 
001424 BEQ 
IF MSGPKT+MS.RFC NE #0 THEN ;IF THERE IS AN RFC THEN: 
005737 TST 
001421 

IFB RANDOM EQ #0 ORB VFYFLG NE #0 THEN 


501568 


5 
71F NOT IN RANDOM OR IF CMD IS W 
IFB IRE EQ #0 THEN 71F RFC ERROR ee a orem 


E 
BNE 501578 
LET HRDCNT(RS) := HRDCNT(RS) + #1 ;UPDATE HARD ge COUNT 


HRDCNT(R 
ERRHRD 13,RFCERM,STAERM ;REPORT RFC ERROR 
CSERHRD 
13 
RFCERM 
STAERM 


003527 


003310 


JSR PC,RAMDUM :G0 DO RAM DUMP ~ 
ENDIF 
50157$: 
50156$: 
50154$: 
50153$: 


ENDIF 
ENDIF 
ENDIF 
ENDIF 
IFB RWERR NE #0 THEN cIF A READ/WRITE ERROR HAS OCCURRED THEN 
Moore 003475 TSTB RWERR 


013737 003432 002314 


BEQ 50160$ 
LET CMDPKT := CMDSAV RESTORE CMD PACKET AFTER ERROR RECOV. 
MOV CMDSAV.C 
ENDIF 
000207 : RTS PC ;RETURN. 


50160$: 
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; ADDRESSES OF TCC HANDLING ROUTINES FOR TERMINATION CLASS CODES 0 - 7. 
TCCRA: 


Mewror 
=I 


oO 
RomwRn 


01 
01 
01 
01 
01 
01 
01 
01 


WWwwrorerorer 
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yg ttl TO HANDLE TERMINATION CLASS CODE 0, UNDEFINED SPECIAL 
feedase N ERROR. 


ae 


OUTPUTS: 
REGISTERS: 
CALLS: 


:: LET HRDCNT(RS) := HRDCNT(RS) + #1 ;UPDATE HARD ERROR COUNT. 
005265 003310 _ INC HRDCNT(R 
ERRHRD 5,SCERM,STAERM ;REPORT SPECIAL CONDITION ERROR. 
TRAP _ 


“WORD  SCERM 
WORD STAERM 
013360 JSR PC ,RAMDUM 
RTS PC 


SUBROUTINE TO HANDLE TERMINATION CLASS CODE 1, ATTENTION CONDITION. 
THIS TCC INDICATES THAT THE DRIVE HAS UNDERGONE A STATUS CHANGE 
Teutss GOING OFFLINE OR COMING ONLINE. 


OUTPUTS: 
REGISTERS: R2,R4 
CALLS: DROPU 
ERRDF 6,ATTNM,STAERM sREPORT ATTENTION-UNIT OFF LINE. 
TRAP CSERDF 

WORD 6 

tes SE 
013360 PC ,RAMDUM 

TS PC 
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3275 ; SUBROUTINE TO HANDLE TERMINATION CLASS CODE 2, TAPE STATUS ALERT. 
76 : A STATUS CONDITION HAS BEEN ENCOUNTERED THAT MAY HAVE SIGNIFICANCE 
277 ; TO THE PROGRAM. BITS OF INTEREST INCLUDE TMK, RLS, LET, RLL, BOT, EOT. 
3278 ? $ INPUTS: 
3279 ; OUTPUTS: 
3280 ; REGISTERS: 
$Sa5 : CALLS: 
3283 012312 TCC2:: IF #X0.B0T SETIN MSGPKT+MS.XSO ANDB EXPBOT NE #0 THEN 
(6) 012312 032737 000002 002346 BIT #x0.B0T, 
(9) 012320 001404 BEQ 50161$ 
(6) 012322 105737 003522 TSTB EX 
(9) 012326 001401 BEQ 50161$ 
3284 31F AT BOT AND BOT IS EXPECTED: 
3285 012330 000452 BR TC2RTN ;RETURN-TCC2 CAUSED BY EXPECTED BOT. 
32 012332 ENDIF 
(4) 012332 50161$: 
3287 012332 IF LSTEST EQ #3 THEN 
(6) 012332 023727 002114 000003 CMP LSTEST,# 
(9) 012340 001011 BNE 50162$ 
3288 012342 IF PCMDWD EQ #WTM AND CMDWRD EQ #SRR THEN 
(6) 012342 023727 003434 100011 CMP PCMDWD ,# 
(9) 012350 001005 BNE 50163$ 
(6) 012352 023727 003430 104410 cMP CMDWRD ,# 
(9) 012360 901001 BNE 50163$ 
3289 012362 000435 BR TC2RTN 
3290 012364 ENDIF 
(4) 012364 501638: 
3291 012364 ENDIF 
(4) 012364 50162$: 
3292 012364 IF #XO.RLS!XO.RLL!XO.TMK!XO.LET!X0.B0T SETIN MSGPKT+MS. i THEN 
(6) 012364 032737 170002 002346 BIT #X0.RLS! 
(9) 012372 001431 BEQ 50164$ 
3293 s1F T re CAUSED BY ANYTHING BUT EOT: 
3294 012374 IFB RANDOM EQ #0 ORB VFYFLG NE #0 T 
(6) 012374 105737 003523 TSTB 
(8) 012400 001403 BEQ 50165$ 
(6) 012402 105737 003524 TSTB VFYFLG 
(9) 012406 001423 BEQ 50166$ 
(6) 012410 50165$: 
3295 31F NOT IN RANDOM OR IF CMD IS WTV: 
3296 012410 IFB IRE EQ #0 THEN zIF RFC ERROR REPORTS ARE aaa 
(6) 012410 105737 003527 TSTB IRE 
(9) 012414 001020 BNE 501678 
3297 012416 IFB ERRREC NE #0 THEN zI1F WE ARE IN ERROR RECOVERY THE 
(6) 012416 105737 003477 TSTB ERRREC 
(9) 012422 001403 BEQ 
3298 012424 LET UNREC :B= UNREC + #1 7SET UNRECOVERABLE FLAG FOR LO 
(6) 012424 105237 003476 NC 
3299 012430 ELSE sELSE ~ IF NOT IN ERROR RECOVERY 
(4) 012430 000402 BR 501718 
(3) 012432 501708: 
300 012432 LET SCCNT(RS) := SCCNT(RS) + #1 ; INCREMENT THE SPEC COND COUNT 
(6) 012432 005265 003270 INC SCCNT(RS 
3301 012436 ENDIF 


(4) 012436 501718: 
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3302 012436 LET HRDCNT(RS) := HRDCNT(RS) + #1  ;UPDATE HARD ERROR COUNT. 
012436 005265 003310 INC HRDCNT(R 

3303 012442 ERRHRD 7,TSAM,STAERM ;REPORT TAPE STATUS ALERT. 

(4) 012442 108896 TRAP _ 


(5) 012446 004522 ; WORD TSAM 
(5) 012450 005642 «WORD STAERM 
3304 012452 004737 013360 JSR PC ,RAMDUM G0 DO RAM DUMP 
3305 012456 ENDIF 
(4) 012456 50167$: 
306 012456 ENDIF 
(4) 012456 50166$: 
3307 012456 ENDIF 
(4) 012456 50164$: 
308 012456 000207 TC2RTN: RTS PC ;RETURN. 


3315 ; THE SPECIFIED FUNCTION WAS NOT INITIATED. BITS OF INTEREST ARE 
TT i VCK, BOT, ILC, WLE, ILA, AND NBA. 


OUTPUTS: 
REGISTERS: R2,R4 
CALLS: DROPU 


3322 012460 TCC3:: ERRDF 8,FUNRM,STAERM zREPORT FUNCTION REJECT. 
(4) 012460 104455 TRAP CSERDF 
(5) 012462 000010 WORD 8 
(5) 012464 004437 -WORD FUNRM 
(5) 012466 005642 WORD STAERM 
0 JSR PC ,RAMDUM GO DO RAM DUMP 
6 JSR PC ,DROPU ;DROP THE UNIT. 
3325 012500 000207 RTS PC ;RETURN. 
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SUSROUT ING TO HANDLE TERMINATION CLASS CODE pes ike oat eG ERROR. 
SITION I BEYOND WHAT ITS POSITION WAS WHEN 
at ea PROCEDURE IS TO L0G THE 


ETECT BAD ad ON TAPE. 
E THE RECORD IS RECOVERED 
OR 20 BAD SPOTS HAVE BEEN LOGGED. ON REACHING BAD 
eo onppree. A BAD TAPE OVERFLOW MSG IS PRINTED AND THE 
THE seco ALGORITHM ISSUES THE TU80 WRITE RETRY COMMAND 
UP TO 16 TIMES BEFORE DROPPING THE UNIT OR PROCEEDING 
ae NEXT RECORD ON RECOVERY. 


OUTPUTS: 
REGISTERS: R2,R 
CALLS: Rie. “EXCUTE, GOWAIT, DROPU, WRTY 


:: IF DEVTBLC(RS) EQ #NINUSE THEN 
Oceser 002536 177774 DEVTBL(R 


501728 
000137 013176 JMP 3$ 
ELSE 
000400 B 50173$ 
50172$: 
ENDIF 


50173$: 
IF CMDLG EQ #2 ANDB BADTSW NE #0 THEN 
023727 003436 000002 CMDLG, #2 
BNE 50174$ 


002211 BADTSW 

001534 E 50174$ 
IFB ERRREC EQ #0 ANDB ERCVER NE #0 THEN 

105737 003477 pid ERRREC 


50175$ 
002207 ERCVER 
50175$ 
CSERSOFT 
9 


RERM 
STAERM 


Aarworr 


™~ 
So 


mn 


ERRSOFT 9,RERM,STAERM ; 


013360 JSR__ PC,RAMDUM GO DO RAM DUMP 
ENDIF 


50175$: 
IFB IREC EQ #0 THEN ; 
105737 002210 TSTB IRE 
siti LET ERRREC :B= ERRREC + #1 ;RETRY FLAG FOR EXCUTE sR: DONT UEDA 
or or LET WRTYER a WRTYER + #1 ;REWRITE ERROR FLAG FOR URty seh 
105237 003472 Aomll 


NCB TYER 
IFB WRTYFG EQ #0 THEN sFIRST RETRY ON THIS necunes SUBSEQUENT 
105737 003471 TSTB YFG 


001102 BNE Soiy78 
sRETRIES WITH TCC4 ERRORS BY-PASS THIS S$ 


0 

6 
30 
34 
36 
36 

2 

4 
50 
52 
52 
54 
56 
60 
62 
66 
66 
66 
66 


&sSn— 


Sooooco°o[eoo 
22 
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012612 LET WTYWRD := CMDWRD :SAVE WRITE COMMAND PACKET 

013737 003430 014164 MOV CMDWRD ,W 
LET WTYCMD := CMDPKT : 

013737 002314 014162 MOV CMDPKT ,W 
LET WTYBRF := CMDPKT+CP.CNT : 

013737 002322 014166 MOV CMDPKT+C 
LET RWERR :B= RWERR + #1 ;LOG SUBR FLAG: COUNT WRT ERRORS 

105237 003475 INCB RWERR 
LET WRTYFG :B= WRTYFG + #1 ;RETRY IN PROGRESS FLAG 

105237 003471 REPEAT INCB WRTYFG 


50200$: 
LET WRTYCT(RS) := WRTYCT(RS) + #1 COUNT GLOBAL WRITE RETR 
005265 003250 INC WRTYCT(R 
LET RETRYC := #0 CLEAR # OF RETRIES PER RECORD 
005037 003466 R RETRYC 


CL 
LET RPTCNT :B= 40 sCLEAR # OF REPEATS 
105037 003470 CLRB RPTCNT 
004737 013650 JSR PC,WRTY sCALL WRITE RETRY 
IF DEVTBL(RS) EQ #NINUSE THEN 
saps tA 002536 177774 CMP DEVTBL(R 


BNE 50201$ 
000540 BR 3$ 
ELSE 
000400 BR 50202$ 
50201$: 
ENDIF 
50202$: 
UNTILB WRTYER EQ #0 OR @BTPT HIS #40. sREPEAT RETRIES on SAME 
105737 603472 TSTB 


170606 000050 
105955 


50203$: 
sUNTIL RECOVERED OR 20 ~ SPOTS 
IF @BTPT HIS #40. THEN ;WHEN 20 BAD SPOTS L oe 


027727 170576 000050 
103425 


012746 014255 
000001 


_ 
foruens= forufo 
U ~“ 


BLO 
PRINTB #BTMSG2 zPRINT BAD TAPE a 


000004 
014374 JSR PC,BORERS ERASE BAD RECORD 
LET RECCNT(R5) := RECENTERS) - #1 3 
005365 003330 RECCNT(R 
004737 013360 JSR PC ,RAMDUM GO DO RAM DUMP 
004737 016716 JSR PC ,DROPU zDROP THE UNIT. 
LET RECCNT(RS) := #0 ; 
005065 003330 RECCNT(R 
LET @TSDB(R5) := #RWCPK ;REWIND UNIT 
012775 002334 002456 cubis #RWCPK a 


50204$ 
LET WRTYFG :B= #0 RETRY COMPLETE FLAG 


oooocoooecp]e|ejcp|escoesco|ec|sssS 
WROPONONONINONINNIPO NUNN PN 
Sonia! 


— oo I Ss SS SS SS 
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(4) 013000 105037 003471 CLRB OWRTYFG 

3385 013004 LET MISCFG :B= MISCFG + #1 3D0 NOT HALT ON THIS CMD FLG 
(6) 013004 105237 003541 NCB MISCFG 

3386 913010 LET PCMDWD := WTYWRD ;RESTORE ORIGINAL WRT CMD AFTER jr het igh 
(4) 013010 013737 014164 003434 MOV TYWRD ,P 

3387 013016 ENDIF 

ss Hi as = 
(4) 013016 000402 BR 50205$ 
(3) 013020 50176$: 

3389 013020 LET UNREC :B= UNREC + #1 : 

(6) 013020 105237 003476 INCB _—UNREC 

3390 013024 ENDIF 
(4) 013024 50205$: 

3391 013024 ELSE 
(4) 013024 000464 BR 50206$ 
(3) 013026 501748 

3392 013026 004737 013512 JSR PC,RTL CHECK FOR RETRY LIMIT " EXCEEDED. 

3393 013032 IF CMDLG GT #2 THEN zIF READ CMD THEN: 

(6) 013032 023727 003436 000002 CMP CMDLG,#2 
(9) 013040 003411 BLE 50207$ 

3394 013042 LET R2 := MRRECL SHIFT -1 ;R2=READ RETRY COUNT LIMIT / 2 
(4) 013042 012702 000020 MOV #RRECL,R 
(7) 013046 006202 ASR 

3395 013050 IF RETRYC GE R2 THEN z1F RETRY COUNT Ts MORE THAN HAL 
(6) 013050 023702 003466 — cMP RETRYC,R 
(9) 013054 002403 BLT 502108 

3396 013056 LET CMDPKT := CMDPKT SET.BY #OPP.C zSET OPPOSITE BIT FOR RE 
(6) 013056 052737 020000 002314 BIS #OPP.C,C 

3397 013064 ENDIF 
(4) 013064 502108: 

3398 013064 ENDIF 
(4) 013064 50207$: 

3399 013064 IF RETRYC EQ #0 ANDB ERCVER NE #0 THEN ;IF THIS IS THE ORIGINAL ERROR 
(6) 013064 005737 003466 TST RETRYC 
(9) 013070 001011 BNE 50211$ 
(6) 013072 105737 002207 TSTB = ERCVER 
(9) 013076 001406 BEQ 50211$ 
00 013100 ERRSOFT 9,RERM,STAERM zREPORT RECOVERABLE ERROR 
(4) 013100 104457 TRAP CSERSOFT 
(5) 013102 000011 «WORD 9 
(5) 013104 004634 «WORD RERM 
(5) 013106 005642 WORD STAERM 

3401 013110 004737 013360 JSR_— PC,RAMDUM G0 DO RAM DUMP 

ae Osi ENDIF zPROVIDED OPERATOR Hs ENABLED THE REPOR 

3403 013114 LET RETRYC := RETRYC + #1 sUPDATE RETRY COUNT. 

(6) 013114 005237 003466 INC RETRYC 

3404 013120 LET CMDPKT := CMDPKT SET.BY #MOD.C1 ;SET RETRY BIT IN CMD PACKET. 

(6) 013120 052737 001000 002314 BIS #MOD.C1, 

3405 013126 IFB IREC EQ #0 THEN 7 IF ERROR RECOVERY ENABLED: 

(6) 013126 105737 002210 TSTB IREC 

(9) 013132 001017 BNE 50212$ 
06 013134 IF DEVTBL(RS) EQ #NINUSE THEN 

4 OI sias 026527 002536 177774 CMP DEVTBL(R 


001002 BNE 50213$ 
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000414 BR 3$ 
ELSE 


000400 BR 50214$ 
50213$: 
ENDIF 


50214$: 
LET ERRREC :B= ERRREC + #1 ;SET ERROR RECOVERY FLAG. 
105237 INCB ERRREC 
POP R2,R2 ;POP 2 RTN ADRS FROM STACK. 
012602 MOV (SP)+,R2 


MOV (SP)+,R2 
JSR PC, EXCUTE 7 EXECUTE THE RETRY COMMAND. 
JMP GOWAIT 3:60 WAIT FOR INTERRUPT + CHECK STATUS. 
ELSE IF ERROR RECOVERY 5s NOT cece: 


WANA 
te ed ad ad ed ed 
o 


50212$: 
LET UNREC :B= UNREC + #1 3SET UNRECOVERABLE ERROR FLAG. 
105237 INCB UNREC 


ENDIF 
50215$: 
50206$: 


ENDIF 
000207 3$: RTS PC ;RETURN 


SOSCOSCOOOCOCOOOCOOOOOoOOoOoOoOooo 
a ed ad ad a od dd ed 


a fw 
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3420 H prvi HEL TO HANDLE TERMINATION CLASS CODE 5, RECOVERABLE ERROR. 
ra ; TAPE POSITION HAS NOT CHANGED. RECOVERY PROCEDURE IS TO LOG THE 
"ee ; ERROR AND RE=ISSUE THE ORIGINAL COMMAND. 
3423 : INPUTS: 
3424 : OUTPUTS: 
3425 ; REGISTERS: R2,R 
3058 ; CALLS: RILe. “EXCUTE, GOWAIT, DROPU. 
3428 013200 004737 673512 TCC5:: JSR PC,RTLE CHECK FOR RETRY LIMIT EXCEEDED 
3429 013204 IF RETRYC EQ #0 THEN TIF THIS IS THE ORIGINAL ERROR THEN: 
(6) 013204 005737 003466 TST RETRYC 
(9) 013210 001006 BNE 50216$ 
3430 013212 ERRSOFT 10,RERM,STAERM sREPORT RECOVERABLE ERROR. 
(4) 013212 104457 TRAP CSERSOFT 
(5) 013214 000012 «WORD 10 
(5) 013216 004634 «WORD RERM 
(5) 013220 005642 «WORD STAERM 
3431 013222 004737 013360 JSR PC ,RAMDUM G0 DO RAM DUMP 
3432 013226 ENDIF 
(4) 013226 502168: 
3433 013226 LET RETRYC := RETRYC + #1 UPDATE RETRY COUNTER. 
(6) 013226 005237 003466 INC RETRYC 
3434 013232 IFB IREC EQ #0 THEN 31F ERROR RECOVERY IS ENABLED: 
(6) 013232 105737 002210 TSTB IREC 
(9) 013236 001016 BNE 502178 
3435 013240 LET ERRREC :B= ERRREC + #1 zSET ERROR RECOVERY FLAG. 
(6) 013240 105237 003477 INCB ERRREC 
3436 013244 LET RECCNT(RS5) := RECCNT(RS) + #1 sUPDATE REC COUNT 
(6) 013244 005265 003330 INC RECCNT(R 
3437 013250 LET @DATAWT := RECCNT(RS5) zAND INSERT IT INTO WRT BFR 
(4) 013250 016577 003330 170140 MOV RECCNT(R 
3438 013256 POP R2,R2 3POP 2 RTN ADRS FROM STACK. 
(2) 013256 012602 MOV (SP)+,R2 
(3) 013260 012602 MOV (SP)+,R2 
3439 013262 004737 010576 JSR PC, EXCUTE GO RE-ISSUE THE COMMAND. 
3440 013266 000137 011166 JMP GOWAIT 760 WAIT FOR INTERRUPT + CHECK STATUS. 
3441 013272 ELSE ZELSE IF ERROR RECOVERY IS NOT ENABLED: 
(4) 013272 000402 BR 502208 
(3) 013274 502178: 
3442 013274 LET UNREC :B= UNREC + #1 ;SET UNRECOVERABLE ERROR FLAG. 
(6) 013274 105237 003476 INCB UNREC 
3443 013 ENDIF 
(4) 013300 50220: 
see 013300 000207 RTS PC sRETURN. 
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012775 
004737 


002334 002456 
011516 


Se Se Se Se Ge Ge te Se Ge Se 


susnoyT is TO HANDLE TERMINATION CLASS CODE 6 eee covets ERROR. 
— POSITION HAS BEEN no LO mS. ONLY VALID RECOVERY PROCEDURE 

Is, fo REWIND AND START OVER AT BOT UNLESS THE TAPE HAS PT ABEL LS OR 

SEQUENCE NUMBERS. THIS DIAGNOSTIC WILL REWIND AND RETRY THE 

COMMAND ONLY IF DENSITY CHECK IS SET, OTHERWISE THE UNIT WILL BE 

oreuree FROM THE TEST SEQUENCE. 


OUTPUTS: 
REGISTERS: R2, 
CALLS: Rite “usr, EXCUTE, GOWAIT, DROPU 

LET @TSDB(RS) := #RWCPK z ISSUE A REWIND COMMAND, 


MOV 
JSR PC,WSSR WAIT FOR SUBSYSTEM READY, 
ERRDF 11,URERM,STAERM [REPORT UNRECOVERABLE a 


#RWCPK a 
CSERDF 
WORD 11 
«WORD URERM 
«WORD STAERM 


PC ,RAMDUM GO DO RAM DUMP 
PC ,DROPU DROP T THE UNIT. 
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3466 ; SUBROUTINE TO HANDLE TERMINATION CLASS CODE 7, FATAL SUBSYSTEM 

3467 ; ERROR. THE swt IS INCAPABLE OF PROPERLY PERFORMING 

3468 : COMMANDS OR AT LEAST ITS INTEGRITY IS SERIOUSLY QUESTIONABLE. 
69 : REFER TO THE. FATAL CLASS CODE FIELD IN THE TSSR REGISTER FOR 
70 : po tht yee, INFORMATION ON THE TYPE OF FATAL ERROR. 

3471 ; INPUTS 

3472 ; OUTPUT §: 

3473 ; REGISTERS: R2, R4 

Sehe > CALLS: 

3476 013336 TCC7:: ERRDF 12,FATSM,STAERM sREPORT FATAL SUBSYSTEM ERROR. 
(4) 013336 104455 TRAP CSERDF 
(5) 013340 000014 «WORD 12 
(5) 013342 004457 WORD FATSM 
(5) 013344 005642 WORD STAERM 

3477 013346 004737 013360 JSR PC ,RAMDUM GO DO_RAM DUMP 

3478 013352 004737 016716 JSR PC ,DROPU DROP THE UNIT. 

3479 013356 000207 RTS PC ;RETURN. 

3480 

3481 

3482 

3483 

3484 013360 RAMDUM: :I1FB RAMWRT NE #0 THEN 
(6) J13360 105737 002214 TSTB = RAMWRT 
(9) 013364 001452 BEQ 50221$ 

3485 013366 PRINTX #RAMFHR 
(7) 013366 012746 005310 MOV #RAMFHR, 
(6) 013372 012746 000001 MOV #1,~(SP) 
(3) 013376 010600 MOV SP,.RO 
(4) 013400 104415 TRAP CSPNTX 
(4) 013402 062706 000004 ADD #4 ,SP 

3486 013406 012737 000010 003406 MOV #8. ,RAMSIZ sRAM FIELD IS 8 BYTES LONG 

3487 013414 012737 000020 003342 MOV #20, RAMHLD 3FIELD STARTS AT 20 OCTAL (10 HEX) 

3488 013422 004737 015164 JSR PC .RAMER READ AND PRINT M 

3489 013426 012737 000040 003342 MOV #40, ,RAMHLD SFIELD STARTS AT 40 OCTAL (20 HEX) 

3490 013434 004737 015164 JSR PC ,RAMER RE PRINT THEM 

3491 013440 012737 000060 003342 MOV #60 ,RAMHLD sFIELD STARTS AT 60 OCTAL (30 HEX) 

3492 013446 004737 015164 JSR PC ,RAMER READ AND “tins THE 

3493 013452 012737 000020 003406 MOV #16. ,RAMSIZ :RAM AM FIELD IS SIXTEEN BYTES LONG 

3494 013460 012737 000100 003342 MOV #100,RAMHLD sFIELD STARTS AT 100 OCTAL (40 HEX) 

3495 013466 004737 015164 JSR PC ,RAMER READ AND PRINT THEM 

3496 013472 PRINTX #RAMLIN 
(7) 013472 012746 005464 MOV #RAMLIN, 
(6) 013476 012746 000001 MOV #1,-(SP) 
(3) 013502 010600 MOV SP,RO 
(4) 013504 104415 TRAP CSPNTX 
(4) 013506 062706 000004 ADD #4,SP 

3497 013512 ENDIF 
(4) 013512 502218: 

us 

3500 ; SUBROUTINE TO CHECK FOR RETRY LIMIT i a PRINTS ERROR MESSAGE 

3501 : IF EXCEEDED AND DROP UNIT UNLESS COMMAND IS A READ. 

3502 : a S$: 

3503 : UTPUTS: 

3504 ; REGISTERS: R2, R4. 
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; CALLS: DROPU 
RTLE:: IF CMDLG EQ #0 THEN :1F CMD IS NOT A READ a ae ey 
BN E 502228 
ERRDF 11,URERM,STAERM ;REPORT UNRECOVERABLE ERROR. 
TRAP aes 


URERM 
STAERM 


oo VAanvVivi 
wu oa 
— — 
Oooooooooo 
ee ee ee ed ed ed ed ed = 
Ww 


3 


013360 JSR PC ,RAMDUM 360 DO RAM DUMP 
016716 od R2 PC ,DROPU ;DROP THE UNIT. 


BR RTLRIN zAND RETURN. 
ENDIF 


(SP)+,R2 


Sywnvo 


50222$: 
LET RWERR :B= RWERR + #1 SET READ/WRITE ERROR FLAG. 
105237 003475 INCB RWERR 
IF CMDLG EQ #2 THEN z1F CMD IS A WRT OR WIM: 
SFT EG 003436 000002 CMP grote 


BNE 
IF RETRYC EQ MWRECL THEN :IF RETRY COUNT HAS REACHED Limit: 
023727 003466 000020 cMP patted 


001013 BNE 
LET UNREC :B= UNREC + #1 SET UNRECOVERABLE FLAG 
105237 003476 INCB UNREC 
ERRDF 14,RLEXM,STAERM sREPORT RETRY LIMIT EXCEEDED. 
TRAP — 


RLEXM 
STAERM 


aan” 
oa 
wee 


— — 
WUAW Ww 
geeuanuds 
NRO Es 


JSR PC,RAMDUM G0 DO RAM DUMP 
rho + Seaman :DROP THE UNIT. 


012602 (SP)+,R2 
ENDIF 
24$: 


502 
ELSE sELSE = CMD IS A READ: 
0004‘ 3 . BR 50225$ 


502238: 
J IF RETRYC EQ #MRRECL THEN IF RETRY COUNT HAS REACHED LIMIT: 
02372; 003466 000020 CMP RETRYC,# 
001007 BNE 502268 
LET UNREC :B= UNREC + #1 3SET UNRECOVERABLE FLAG 

105237 003476 INCB UNREC 
ERRHRD 14,RLEXM,STAERM sREPORT RECOVERABLE ERROR. 

1oseee yr + tated 


000016 ° 
004374 -WORD RLEXM 
005642 -WORD STAERM 


012602 MOV (SP)+,R2 
502268: 


AQOALLS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


a ee a es 


~ 
oo 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


Sinn tas 





oa 


GLOBAL AREAS MACY11 _30(1046) 
CZTUVB.P11 12-JUL-83 09 


(4) 013646 
3530 013646 000207 
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RTLRTIN: RTS PC 


50225$: 
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3532 : SUBR TO REWRITE A BAD, BUT RECOVERABLE WRITTEN RECORD. 
3533 : REWRITE RECORD ON SAME SPOT: REPEAT 4 TIMES. 
3534 : F ALL 4 REPEATS GOOD, RECORD IS RECOVERED 
333 : AND A RECOVERABLE WRITE ERROR IS LOGGED. 
5% : IF ANY OF 4 REPEATS OE RASE BAD RECORD, LOG SUSPECTED 
3537 ; BAD SPOT, RETRY AGAIN. RETRY 4 TIMES, UP TO 4 REPEATS EACH. 
3538 : F RECORD NOT GOOD AFTER 4 gE TRIES ERASE Ir, EXIT WITH 
3539 : ERROR FLAG WRTYER SET RETRY 
3540 : THIS ALL SCHEME IS SL ENTEGED. 50 fines mae e 20 BA 
3541 : SPOTS MAX ARE ALLOWED. 
3542 
3543 ; : 
3544 : OUTPUTS: 
3545 : REGISTERS: R3,R 
3305 : CALLS: SORERS, REWRT 
3548 013650 WRTY:: IF DEVTBL(RS) NE #NINUSE THEN y1F DRIVE NOT DROPPED 
(6) 013650 026527 002536 177774 CMP DEVTBL(R 
(9) 013656 001540 BEQ 502278 
3549 013660 BEGIN RETRY 
3550 013660 REPEAT 
(3) 013660 50231$: 
3551 013660 BEGIN REPEAT 
3552 013660 REPEAT 
(3) 013660 50233$: 
3553 013660 004737 014374 JSR PC,BORERS :BACKSPACE/ERASE ONE RECORD 
3554 013664 LET WRTYER :B= #0 [CLEAR WRITE RETRY ERROR 
(4) 013664 105037 003472 CLRB = WRTYER 
3555 013670 004737 014550 JSR PC,REWR :REWRITE RECORD ON SAME SPOT 
3556 013674 IF peviBe CRS) EQ #NINUSE THEN 
(6) 013674 026527 002536 177774 CMP DEVTBL(R 
(9) 013702 001004 BNE 50234$ 
3557 013704 LET RPTCNT :B= #3 
(4) 013704 112737 000003 003470 MOVE #3, RPTCN 
3558 013712 ELSE 
(4) 013712 000400 BR 50235$ 
(3) 013714 502348: 
3559 013714 ENDIF 
(4) 013714 50235$: 
3560 013714 LET RPTCNT :B= RPTCNT + #1 ~ sCOUNT REPEATS 
(6) 013714 105237 003470 INCB  _—RPTCNT 
3561 013720 UNTILB RPTCNT EQ #4 ORB WRTYER NE #0 ;LIMIT: 4 REPEATS OR REC 
(4) 013720 123727 003470 000004 CMPB sRPTCNT.# 
(6) 013726 001403 BEQ 
(4) 013730 105737 003472 TSTB WRTYER 
(7) 013734 001751 BEQ 50233$ 
(4) 013736 50236: 
3562 013736 END REPEAT F 
(3) 013736 502328: 
3563 013736 LET RETRYC := RETRYC + #1 :COUNT RETRIES 
(6) 013736 005237 003466 INC RETRYC 
3564 013742 IF DEVTBL(RS) EQ #NINUSE THEN 
(6) 013742 026527 002536 177774 CMP DEVTBL(R 
(9) 013750 001002 BNE 502378 
3565 013752 000502 BR 3$ 
3566 013754 ELSE 





GLOBAL AREAS 
CZTUVB.P11 


013754 


MACY11_30(1046) 


12-JUL=83 09:26 


000400 


105737 
001001 


000457 


105737 
001415 


023727 
001021 
016537 
017704 
062704 
010477 


020427 
101005 


013703 
060304 
016514 


105237 
105037 
105037 


002207 


003470 
003466 
014170 
000003 


000010 


003466 


002550 
167450 
000002 


167440 
000050 


003520 
003330 
003534 


003475 
003470 
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ENDIF 
IFB WRTYER EQ #0 THEN 


LEAVE RETRY 
ELSE 
IFB ERCVER NE #0 THEN 


PRINTB #BTMSG1,RETRYC,<B,RPTCNT> 


ENDIF 


F RETRYC EQ #1 TH 
000001 IF RETRYC E EN 


LET BTPT := BTADDR(RS) 
LET R4 := @BIPT + #2 


003520 


LET @BTPT := R4 
IF R4 LOS #40. THEN 


LET R3 := BIPT 
LET R4 := R4 + RS 
LET (R4) := RECCNT(RS) 
ENDIF 
ENDIF 
LET ERSFLG :B= ERSFLG + #1 
LET RWERR :B= #0 
LET RPTCNT :B= 40 
ENDIF 


SEQ 0099 


BR 502408 
50237$: 


50240$: 
TSTB WRTYER 
41$ 


BNE 502 
zEXIT RETRY LOOP IF RECOVERED 
BR 502308 


50241$: 


TSTB ERCVER 

BEQ 502438 
zPRINT SUSPECTED BAD SPO 

CLR -(SP) 


SPNTB 
#10,SP 


‘ 50243$: 
30N FIRST RETRY, LOGG BAD SPOT 


RETRYC.# 
BNE 502448 
:BTPT 1S BOTH THE BAD SPOT COUNT 
V BTADDR(R 
;AND THE LOGGING INDEX 
MOV @BTPT RG 
ADD =: #2, RG 
MOV = R4, @BTPT 
CMP 


BHI 
sSTORE FIRST 20 BAD SPOTS 
MOV BTPT RS 


ADD R3,R4 
MOV RECCNT(R 
50245$: 


50244$: 
sERASE FLAG TO ERASE BAD RECORD 
CIN ERSFLG 
;CANCELL ‘LOG’’ ERROR FLAG 


RWE 
sCLEAR REPEAT COUNT FOR NEXT RET 
CLRB RPTCNT 


50242$: 
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UNTIL RETRYC EQ #4 sLIMIT: 4 RETRIES 
CMP RETRYC,# 
BNE 50231$ 
END RETRY $ 
50230$: 
IFB WRTYER NE #0 THEN 3 
105737 003472 TSTB WRTYER 
001413 BEQ 502468 
IFB ERCVER NE #0 THEN : 
105737 002207 TSTB ERCVER 
001410 &éQ 50247$ 
PRINTB #BTMSG3 PRINT RETRY FAILED 
MOV #BTMSG3, 
— #1,-(SP) 


MO SP,RO 
TRAP CSPNTB 
000004 ADD #4,SP 


50247$: 
50246$: 
50227$: 


023727 003466 000004 
001256 


ib ad 3 SS 


012746 014325 
000001 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


BRERARER RRR RRR RE RRR EEE 
a ee ee ee ee ee ee ee LL 
SSSAAASA MMA EEE WAWWVVVVVss 
SSOSOSOSOKNOKLOCOSGNNGESSENES 


eh eh a ts i sk ts ot 


WTYCMD: STORAGE FOR WRITE CMD WHILE RETRYING 
: WORD zSTORAGE FOR WRITE CMD WORD WHILE RETRYING 
: .WORD 0 sSTORAGE FOR WRITE BPCR WHILE RETRYING 


050123 BIMSG1: .ASCIZ /%ASUSPECT BAD SPOT AFTER 2D1%A RETRY, %2D1%A REPEATZN/ 


SoRk 
RSSaR 
Si md UI at ot 


BIMSG2: .ASCIZ /%NZABAD TAPE OVERFLOW: CHANGE TAPE! ZN2ZN/ 


Wo ty 454 


BIMSG3: .ASCIZ /%ARETRY FAILED ON BAD SPOT...ERASED! ZN/ 


wi 

NAM NN 

PINES 
SoseNwuMow 


wi 
Nm 


027056 





GLOBAL AREAS MACY11_30(1046) 
CZTUVB.P11 12-JUL=83 09:26 


014362 051105 051501 
014370 022441 000116 
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-EVEN 


SEQ 0101 
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SUBR TO BACSPACE ONE RECORD 
IF THE ERASE FLAG IS SET, THEN ERASE THAT RECORD 
INPUTS: ERSFLG 1 = DO ERASE 


EXCUTE, GOWAIT, CKHAE 


014374 LET PCMDWD := CMDWRD ;SET COMMAND TO SPACE REV 

013737 003430 003434 CMDWRD ,P 
LET CMDWRD := #SRR é 

012737 104410 003430 #SRR,CMD 
LET CMDPKT := CMDWRD CLR.BY #BRF.C ; 

013737 003430 002314 MOV CMDWRD ,C 

042737 004000 002314 #BRF .C,C 
LET CMDSAV := CMDPKT : 

013737 003432 CMDPKT,C 

7 LET CMDPKT+CP.ADL := #1 ; 

012737 002316 #1,CMDPK 
LET CMDLG := #0 : 

005037 CMDLG 

0 JSR PC,CMDAC : 


OUTPUTS: 
REGISTERS: 
CALLS: 


¥ - Hiatatatatatats 
—~ODVONOuUlw 


017222 JSR PC, CKHAE ; 
IFB ERSFLG NE #0 THEN ;WHEN ERASE FLAG IS SET, DO ERASE 
105737 003534 TSTB ERSFLG 


001426 BEQ 50250$ 
LET PCMDWD := CMDWRD ; 

013737 003430 003434 MOV CMDWRD ,P 
LET CMDWRD := #ERS ; 

012737 100411 003430 MOV #ERS CMD 
LET CMDPKT := CMDWRD ; 

013737 003430 002314 MOV CMDWRD ,C 
LET CMDSAV := CMDPKT ; 

013737 002314 003432 MOV CMDPKT .C 

004737 JSR PC,CMDAC ; 

004737 JSR PC,EXCUTE 

004737 JSR PC,GOWAIT 

004737 017222 JSR PC, CKHAE 
LET ERSFLG :B= 40 


105037 003534 ERSFLG 


ENDIF 
50250$: 
000207 RTS PC 
SUBR TO REWRITE A BADLY WRITTEN RECORD 


IF DEVTBL(RS) NE #NINUSE THEN ;IF DRIVE NOT DROPPED 

026527 902536 177774 C DEVTBL(R 

— LET PCMDWD CMDWRD RESTORE WRITE COMMAND PACKET . eegion 

013737 003430 003434 MO CMOWRD .P 
LET CMDWRD := WTYWRD : 

013737 014164 003430 WTYWRD.C 
LET CMDPKT := WTYCMD ; 

013737 014162 002314 WTYCMD.C 
LET CMDSAV := CMDPKT ; 


felelel@lelelolol—) =) 
ee ee ee eed eed eed eed eed od 
Ra ™ 
Wala) 
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013737 
013737 
013737 


012737 
004737 
004737 


026527 
001404 
004737 
004737 


002314 
003416 
014166 
000002 
007614 
010576 
002536 


011166 
017222 
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003432 
002316 
002322 
003436 


177774 


GLOBAL SUBROUTINES SECTION 


LET CMDPKT+CP.ADL := DATAWT 
LET CMDPKT+CP.CNT := WTYBRF 
LET CMDLG := #2 

JSR PC, CMDAC 


JSR PC,EXCUTE sRE-WRITE RECORD 
IF DEVTBL(RS) NE #NINUSE THEN 


JSR PC,GOWAIT 
JSR PC, CKHAE 
ENDIF 


50252$: 
50251$: 


ENDIF 
RTS PC 


SEQ 0103 
CMDPKT ,C 
DATAWT ,C 
WTYBRF ,C 
#2,CMDLG 


DEVTBL(R 
502528 
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3661 ; SUBROUTINE TO LOG BYTES READ/WRITTEN. 


SEQ 0104 


ne 


3663 
3665 
3667 
3668 

(6) 


(9) 
3669 


— 


femlolelelelelejlejojleojloj—j—) 
22 > 


REESE 
NIIISF 


105737 
001126 


105237 
013704 


005704 
001520 


162704 
010502 
06640 

062702 
063712 
023737 
101002 
163712 


010203 
062703 
021227 
003404 
162712 
005213 
000771 


010302 
062702 


021327 
003404 


162713 


003474 


003474 
003436 


000002 
015150 
002560 
003426 
002344 


002344 


000010 


001747 


001750 


000010 


001747 


001750 


003426 


ALSO UPDATES READ/WRITE ERROR COUNTERS. 
INPUTS: 


OUTPUTS: 
REGISTERS: 
CALLS: 


IFB ERLOG EQ #0 THEN 


LET ERLOG :B= ERLOG + #1 
LET R4 := CMDLG 
IF R4 NE #0 THEN 


LET R4 : 
LET R2 : 


R4 = #2 


LET (R2) := 


LET (R2) := 
ENDIF 


LET R3 := R2 + #10 


WHILE (R2) GT #999. DO 


LET (R2) : 


LET (R3) : 
ENDDO 


(R3) + #1 


LET R2 := R3 + #10 


WHILE (R3) GT #999. DO 


LET (R3) : 


LET (R2) := (R2) + #1 


R2, R3, R4. 


R5 + BINC(R4) + ACNTBGN ;R2 = 


(R2) + BRFCNT 
IF MSGPKT+MS.RFC LOS BRFCNT THEN 


(R2) = MSGPKT+MS.RFC 


(R2) = #1000. 


(R3) = #1000. 


z1F DATA AND ERRORS HAVE NOT BEEN LOGGED 
TSTB ERL 


0G 
50253$ 
ERLOG 
CMDLG,R4 


SET LOG DONE FLAG. ince 
GET CURRENT CMD LOGGING a 
z1F THERE IS A CODE om 


BEQ Sb254s 
zADJUST THE CODE FOR TABLE oon) as 


ADR OF BYTE — LSW. 


oR2 
ADD BINC(R4) 
ADD #CNTBGN, 


ADD BRF CNT, ¢ 
cIF THE RFC IS om THE SAME AS 


zADD BRF TO LSW. 


BHI 5 
SUBTRACT RFC FROM EXPECTED BRF. 
SUB MSGPKT+M 


50255$: 
:R3 = ADR OF 2ND WORD. 
R2,R3 
#10,R3 
50256$: 
(R2) ,#99 
50°57$ 
#1000. ,¢ 
(R3) 


50256$ 


;UPDATE BYTE COUNT 
72ND WORD. 


50257$: 

:R2 = ADR OF 3RD WORD. 
R3,R2 
#10,R2 


50260$: 
(R3) ,#99 
50261$ 


#1000. ,¢ 


sUPDATE BYTE COUNT 
:5RD WORD. 
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(6) 015010 005212 INC (R2) 
3687 015012 ENDDO 

(4) 015012 000771 BR 50260$ 

(3) 015014 50261$: 

015014 LET R3 := R2 + #10 :R3 = ADR OF 4TH WORD. 

(4) 015014 010203 MOV R2,R3 

(6) 015016 062703 000010 ADD #10,R3 
3689 015022 WHILE (R2) GT #999. CO 

(4) 015022 50262$: 

(6) 015022 021227 001747 CMP (R2), #99 

(9) 015026 003404 BLE 50263$ 
3690 015030 LET (R2) := (R2) = #1000. UPDATE BYTE COUNT 

(6) 015030 162712 001750 SUB #1000. ¢ 
3691 015034 LET (R3) := (R3) + #1 34TH WORD. 

(6) 015034 005213 INC (R3) 
3692 015036 ENDDO 

(4) 015036 000771 BR 50262$ 

(3) 015049 50263$: 
3693 015040 IFB RWERR NE #0 THEN sI1F R/W ERROR, UPDATE ERROR COUNT. 

(6) 015040 105737 003475 TSTB  RWERR 

(9) 015044 001440 BEQ 50264$ 
3694 015046 LET R2 := RS + EINC(R4) + MWRREC ;R2 = ADR OF COUNTER. 

(4) 015046 010502 MOV RS,R2 

(6) 015050 066402 015156 ADD EINC(R4) 

(7) 015054 062702 002720 ADD MWRREC,R 
3695 015060 IFB UNREC NE #0 THEN z1S THE ERROR UNRECOVERABLE? 

(6) 015060 105737 003476 TSTB _— UNREC 

(9) 015064 001404 BEQ 50265$ 
3696 015066 LET R2 := R2 + #10 sYES, POINT TO NEXT COUNTER. 

(6) 015066 062702 000010 ADD #10,R2 
3697 015072 LET (R2) := (R2) + #1 ;UPDATE THE ERROR COUNTER 

(6) 015072 005212 INC (R2) 
3698 015074 ELSE sELSE - IF ERROR IS RECOVERABLE: 

(4) 015074 000424 BR 50266$ 

(3) 015076 50265$: 

99 015076 LET (R2) := (R2) + #1 ;UPDATE THE ERROR COUNTER 

(6) 015076 005212 INC (R2) 
3700 015100 IFB IREC EQ #0 THEN zIF ERROR RECOVERY IS ENABLED: 

(6) 015100 105737 002210 TSTB  —s TREC 

(9) 015104 001020 BNE 502678 
3701 015106 IFB DROPED €Q #0 ANDB ERCVER NE #0 THEN ;:IF UNIT HAS NOT BEEN DR 

(6) 015106 105737 003530 TSTB © DROPED 

(9) 015112 001015 BNE 502708 

(6) 015114 105737 002207 TSTB —— ERCVER 

(9) 015120 001412 BEQ 502708 
3702 015122 PRINTB #NURTY1,RETRYC PRINT # OF RETRIES TO RECOVER 

(8) 015122 013746 003466 MOV RETRYC,- 

(7) 015126 012746 005157 MOV #NURTY1 

(6) 015132 012746 000002 MOV #2,-(SP) 

(3) 015136 01 MOV SP_R 

(4) 015140 104414 TRAP  C$PNTB 

(4) 015142 062706 000006 ADD #6.S 
3703 015146 ENDIF ;PROVIDED PRINT HAS BEEN ENABLED 

(4) 015146 50270$: 
3704 015146 ENDIF 

(4) 015146 50267$: 
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ENDIF 
ENDIF 
ENDIF 
ENDIF 


oon 


50266$: 
50264$: 
50254$: 
502538: 


o 


BREREREES 
DARAAX 


RTS PC 
Petro TO BYTE COUNTERS. 


wv 
No 


100 : F 
— TO READ/WRITE ERROR COUNTERS. 


20 TREAD REV. 
40 TREAD FWD. 


ooo COO COOCOOCOoOoOo 
o 


eee ee a ed od ad ot ed 
ViVIiwg VWI VWVIVIVIMIVIUIVIVW 
eee a ad td 


oaw 
NO 
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-SBTTL RAMER = READ AND DISPLAY SELECTED RAM 
{ROUTINE TO READ THE SELECTED RAM LOCATIONS 
RAMER: : R5,-(SP) 

MO 


#RAMDATA,R1 ZADDRESS TO SAVE THE RAM DATA 

RAMHLD, R2 “BYTE ADDRESS OF THE FIRST RAM DATA 
S1Z.R3 [SET THE SIZE OF THE READ UP 

T308(RS R4 imov THE TSDB ADDRESS INTO R4 


. NOP 
011516 PC,WSSR sWAIT FOR THE SSR TO SET 
MOVB ; Ss 


R2, (R4) 
011516 PC,WSSR 3 R 
002456 @TSBA(R5S),(R1)+ ;READ THE RAM DATA 
000001 : #1,R2 zADDRESS OF THE NEXT RAM LOCATION 
08 R3,10$ SNUMBER OF LOCATIONS COUNTER 
003406 RAMSIZ,R4 3GET THE RAM SIZE 
003342 RAMHLD ,R2 [GET THE STARTING RAM ADDRESS 
R2,R4 SCALCULATE THE END ADDRESS 
000001 SUB #1,R4 SCORRECT VALUE OF PRINTOUT 
PRINTX #RAMIOP,R2,R4  ;RAM ADDRESS = 10 ~ 17, ETC. 


Cy Cpe ee ee ee 
SUORNOSS 


R4,-(SP) 
005401 
000003 


1 
15 


000010 #10,SP 
003346 #RAMDATA,R1 : ADDRESS OF WHERE RAM DATA IS 
003406 RAMSIZ,R3 THE SIZE OF THE RAM FIELD READ 
RG ZNO EXTRA DATA LEFT OVER 
K UP BYTE OF RAN DA TA 
177400 BIC sy 7t66. R4 “GET RID OF SIGN EXT 
PRINTX #RAMPD,R4 "010 211 111 222 ays "D00 123 134 ETC." 


005452 
000002 


000006 
;LOOP UNTIL ALL PRINTED 


5 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


RTS PC ; RETURN 

IF A WRITE/VERIFY COMMAND IS ISSUED, CONTROL IS THEN 
TRANSFERRED TO THIS SUBROUTINE TO READ REVERSE, CHECK DATA, 

ceo mia CHECK DATA, THEN CONTINUE TO NEXT COMMAND. 
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; OUTPUTS: 
3 REGISTERS: 
3 CALLS: VFEXC. 


VFYDAT:: LET CMPDAT := #0 sBTL 

005037 003410 CLR CMPDAT 
LET STTIM <= #0 :BTL 

005037 003414 CLR STTIM 
IFB VFYFLG NE #0 THEN IF DATA IS TO BE VERIFIED: 

105737 003524 TSTB VFYFLG 

001436 BEQ sO2718 
LET PCMDWD := CMDWRD zSAVE THE PREVIOUS COMMAND WORD. 

013737 003430 003434 MOV CMDWRD ,P 
LET CMDWRD := #RDR 3COMMAND IS READ REV. 

012737 104401 003430 MOV #RODR, CMD 
LET CMDLG := #4 3SET UP CMD LOGGING —" 

012737 000004 003436 #4,CMDLG 

004737 015504 JSR PC, VFEXC 3GO READ ALL THE RECORDS R REV. 
IF DEVTBL(RS) NE #NINUSE THEN ;IF DRIVE HAS BEEN DROPPED EXIT 

026527 002536 177774 CMP DEVTBL(R 

001417 BEQ 50272$ 
LET CMPDAT := #0 sBTL 

005037 003410 CLR CMPDAT 
LET STTIM := #0 sBTL 

005037 003414 CLR STTIM 
LET PCMDWD := CMDWRD sSAVE THE PREVIOUS COMMAND WORD. 

013737 003430 003434 MOV CMDWRD ,P 
LET CMDWRD := #RDF COMMAND IS READ FWD. 

012737 104001 003430 MOV #RDF ,CMD 
LET CMDLG := #6 3SET UP CMD LOGGING INDEX. 

012737 000006 003436 MOV #6,CMDLG 

004737 015504 es PC ,VFEXC GO READ ALL RECORDS FWD. 


50272$: 
50271$: 


feleolelelolelelolololololaj—) 

mee ee De ce ed ed ed eed ed ed ed 
vnwnwn wn w 

aS S 


ENDIF 
000207 RTS PC ;RETURN. 
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; SUBROUTINE TO EXECUTE THE READ AND VERIFY, FORWARD OR REVERSE. 

3788 ; INPUTS: 

3789 : OUTPUTS: 

3790 : REGISTERS: R2 

3791 CALLS: CMDAC, FIRSTU, VFISU, NEXTU, CKHAE. 

3793 015504 VFEXC:: LET CMDPKT := CMDWRD CLR.BY #BRF.C ;COMMAND PACKET = READ REV OR FWD. 
(4) 015506 013737 003430 002314 MOV CMDWRD , C 
(6) 015512 042737 004000 002314 BIC #BRF.C,C 
794 015520 IFB SWBFLG NE #0 THEN sIF BYTES ARE TO BE SWAPPED: 

(6) 015520 105737 003526 TSTB  SWBFLG 
(9) 015524 001403 BEQ 50273$ 

3795 015526 LET CMDPKT := CMDPKT SET.BY #SWB.C ;SET SWAB BIT IN CMD PACKET. 

(6) 015526 052737 010000 002314 BIS #5WB.C,C 

3796 015534 ENDIF 
(4) 015534 50273$: 

3797 015534 LET CMDSAV := CMDPKT ;SAVE COMMAND PACKET 1ST WORD. 

(4) 015534 013737 002314 003432 MOV CMDPKT,C 

3798 015542 013737 003420 002316 MOV DATARD,CMDPKT+CP.ADL § ;SAVE BUFFER START ADDRESS. 

3799 015550 LET NCNT := #0 [CLEAR NUMBER OF OPERATIONS. 

(4) 015550 005037 003422 CLR NCNT 
015554 WHILE NCNT LT NCNT1 DO sWHILE THERE ARE RECORDS REMAINING: 

(4) 015554 50274$: 

(6) 015554 023737 003422 003424 cMP NCNT,NCN 

(9) 015562 002101 BGE 50275$ 

3801 015564 004737 007614 JSR PC, CMDAC :STORE CMD ASCII IN ERROR MSG. 

3802 015570 105737 003533 TSTB STREAM [CHECK IF WE ARE STREAMING 

3803 015574 001006 SBRANCH OVER DEVTBL CHECK. THIS ENABLES 

3804 :US TO TEST ONE DRIVE AT A TIME. 

3805 015576 004737 016614 JSR PC, FIRSTU 3S FOR FIRST UNIT. 

3806 015602 WHILE DEVTBL(R5) NE #END DO WHILE THERE ARE DEVICES REMAINING: 

(4) 015602 50276$: 
(6) 015602 026527 002536 177777 cMP DEVTBL(R 
(9) 015610 001445 BEQ 502778 

3807 015612 1$: IF #MOD.CO SETIN CMDWRD THEN ;IF CMD IS REVERSE THEN: 

(6) 015612 032737 000400 003430 BIT #MOD.CO, 
(9) 015620 001421 BEQ 50300$ 

3808 015622 IF #X0.BOT NOTSETIN EOTFLG(RS) THEN ;IF NOT AT BOT 
(6) 015622 032765 000002 003510 BIT #x0.B0T, 
(9) 015630 001014 BNE 50301$ 

015632 IF #XO.EOT SETIN EOTFLG(RS) THEN ;8UT IF AT EOT 
(6) 015632 032765 000001 003510 BIT #x0.E0T, 
(9) 015640 001406 BEQ 50302$ 

3810 015642 IFB ALLEOT NE #0 THEN sAND ALL OTHERS AT EOT 
(6) 015642 105737 003532 TSTB  ALLEOT 
(9) 015646 001402 BEQ 50303$ 

3811 015650 004737 015770 JSR PC, VFISU ; THEN READ VERIFY 

3812 015654 ENDIF [IF NOT ALL AT EOT, FREEZE 
(4) 015654 303$: 

3813 015654 ELSE sIF NOT AT BOT AND 
(4) 015654 000402 BR 50304$ 
(3) 015656 50302$: 

3814 015656 004737 015770 JSR PC,VFISU sNOT AT EOT, READ VFY 

3815 015662 ENDIF 
(4) 015662 50304$: 

3816 015662 ENDIF 
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50301$: 
ELSE zELSE IF CMD IS NOT REVERSE: 
000412 BR 50305$ 


50300$: 
IF #X0.EOT NOTSETIN EOTFLG(RS) OR #CMD.CO NOTSETIN CMDWRD THEN 
032765 000001 003510 BIT #X0.EOT, 
001404 503068 


4 
032737 000001 003430 
001002 
50306$: 
;1F NOT AT EOT OR NOT A MOTION CMD THEN: 
004737 015770 subi PC VF ISU z ISSUE CMD, CHECK STATUS AND DATA. 
50307$: 


33 


ENDIF 


50305$: 
105737 003533 TSTB_ STREAM CHECK FOR TEST OF ON UNIT AT A TIME. 
001003 BN SBRANCH, IF STREAMING TESTS. 
004737 016662 edes PC ,NEXTU 7GO FIND THE NEXT UNIT. 


000727 BR 50276$ 


502778: 
004737 017222 $ JSR___ PC, CKHAE CHECK FOR HALT AFTER EACH CMD. 
IF DEVTBL(RS) EQ MNINUSE THEN ;IF DRIVES BEEN DROPPED EXIT 
peener 002536 177774 ve DEVTBL(R 


50310$ 
LET NCNT := NCNT1 = #1 
013737 003424 003422 MOV NCNT1 NC 
005337 003422 enw DEC NCNT 


50310$: 
LET NCNT := NCNT + #1 ;UPDATE THE RECORD COUNT. 
005237 003422 INC NCNT 
LET PCMDWD := CMDWRD ;SAVE PREVIOUS COMMAND WORD. 
013737 003430 003434 MOV CMDWRD .P 


ENDDO 
000673 BR 50274$ 


502758: 
000207 RTS PC ;RETURN. 


NNN 3 3 2 
FENN LOCOCO 


NNN pm i em ee Be | 


3S 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


ee eee ee ee ee ed ed td td at at ad td a et et et te 
wi w 
“ “I 
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SUBROUTINE TO ISSUE COMMAND, AWAIT INTERRUPT, 
tier CHECK DATA. 


: OUTPUTS: 

; REGISTERS: R2 

; CALLS: EXCUTE, GOWAIT, CKDATA. 

VFISU:: 

LET R2 := DATARD + #8. sINIT READ BUFFER POINTER. 

013702 003420 MO DATARD,R 

062702 000010 A #8. ,R2 
WHILE R2 NE DATARD DO sUNTIL 8 BYTES HAVE BEEN SET. 

020237 003420 R2,DATAR 

001403 50312$ 
LET -(R2) := #1 sINIT READ BUFFER. 

012742 177777 #=-1,-(R2 
ENDDO 

000772 BR 50311$ 


50312$: 
004737 010576 JSR PC, EXCUT GO EXECUTE THE COMMAND. 
IFB DROPED HM #0 THEN 31F UNIT HAS NOT BEEN DROPPED es 
beh 24 003530 STB 


00100 
004737 011166 os 360 WAIT FOR DONE BIT. 


2ee8 


DROPED 
50313$ 


503138: 
IFB DROPED EQ #0 THEN ;1F UNIT HAS NOT BEEN DROPPED THEN: 
105737 003530 TSTB Pn at 


001057 BNE 50314$ 
IF #X0.BOT NOTSETIN EOTFLG(RS) THEN sWHEN NOT REVERSED INTO BOT, THEN 

032765 000002 003510 BIT 4#x0.B0T, 

001053 BNE S03iss 

IF LSTEST NE #3 THEN 

023727 002114 000003 cmp LSTEST.# 

001403 BEQ 50316$ 

004737 016200 JSR PC,CKDATA 360 VERIFY DATA. 


000444 BR 50317$ 


50316$: 
IF NCNT LT #3500. THEN 

023727 003422 006654 CMP NCNT #35 

002004 BGE 503208 
LET DATRAT := #56. ;1.7% DATA COMPARISONS 

012737 000070 003412 raps #56. DAT 

000411 BR 50321$ 


503208: 
IF DATRAT NE #15. THEN 
023727 003412 000017 DATRAT.# 
503228 


001405 
LET DATRAT := #15. ;6.67% DATA COMPARISONS 

012737 000017 003412 #15. .DAT 
LET CMPDAT := #0 

005037 003410 CMPDAT 
ENDIF 


PRES 


SSE58 


an 
SN 
AOR 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
160 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ee ee 
SRREREKKERR 


01 
1 
01 
0 
1 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


AAADAAAGA AOD 
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50322$: 


ENDIF 


50321$: 

005237 003410 INC _CMPDAT “ONE MORE XFER BEFORE A COMPARISON 
IF CMPDAT EQ DATRAT THEN 
023737 003410 CMP CMPDAT,D 
001015 BNE 50323$ 

IF STTIM NE #0 THEN ;BTL 
005737 003414 TST STTIM 
001405 BEQ 50324$ 
004737 016200 JSR PC,CKDATA 

LET CMPDAT := #0 
005037 003410 anf CLR CMPDAT 
000405 BR 50325$ 


50324$: 
LET STTIM : ; 
012737 003414 MOV #1,STTIM 
LET CMPDAT : : 
005037 CMPDAT 
ENDIF ; 
503258: 
ENDIF 
503238: 
ENDIF 
50317$: 
ENDIF 
50315$: 


exigi 50314$ 
000207 RTS PC ; 


223 SS SS So 
AADAAAAAAAAASO 
et et ae a ed ed ed aed ad 


° eoooocoooosssco 
eS Ss 


FFERVSSNUSEROEKSSSS 
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SUBROUTINE TO COMPARE DATA BETWEEN READ AND WRITE BUFFERS 
po Ral ERROR MESSAGE ON MISCOMPARE. 


OUTPUTS: 
REGISTERS: R2, R3, R4. 
CALLS: GCMDA 


33 


LET R3 := BRFCNT = MSGPKT+MS.RFC ;COMPUTE REC LENGTH READ 
013703 003426 MOV BRFCNT,R 


163703 002344 SUB MSGPKT+M 
IF R3 EQ #0 THEN WHEN NO DATA RECEIVED 


z 


R3 
50326$ 
CSERHRD 
17 
WTVERM 


DTAERM 
PRINTB #DTAERS sCOMPARE ROUTINE 

012746 005074 #OTAERS, 
012746 000001 #1,-(SP) 
010600 MOV P 
104414 CSPNTB 
062706 000004 ~~ #4,SP 
000560 BR 50327$ 


50326$: 
IF R3 HI BRECNT THEN ;WHEN REC READ IS LONGER 
020337 003426 ; CMP R3,BRFCN 
101417 BLOS  50330$ 
ERRHRD 17,WTVERM, DTAERM s THAN EXPECTED, 
104456 T 
000021 
004250 
005474 
013746 002322 


BNE 
ERRHRD 17,WTVERM,DTAERM PRINT ERROR om * 


Se; 
NNR) 3 3 
FNC LLNMOO 


lolololololololololololololol ol =) 
Moron 

& 
SESE 


a ad oh oh od oh oh od So ot 
o 


PRINTB #DTAERS,CMDPKT+CP.CNT 


ELSE zAND EXIT ROUTINE 
50331$ 


50330$: 

LET CKDCNT := R3 = #1 sSAVE VERIFICATION LENGTH = 1. 

010337 MOV R3.CKDCN 

005337 DEC CKDCNT 

005037 CLR CKDFF CLEAR # OF BYTES IN ERROR COUNTER. 

005002 CLR R2 INIT BYTE COUNT 

LET R35 := DATAWT :GET WRITE BUFFER ADDRESS. 

013703 MOV DATAWT.R 
LET R4 := DATARD :;GET READ BUFFER ADDRESS. 

013704 MOV DATARD.R 
IFB T1SWB NE #0 THEN sWHEN RUNNING TEST1-SUB 12, 

105737 003531 TSTB T1SWB 
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016344 (001401 BEQ 50332$ 
6 000313 SWAB (R3) zSWAP FIRST WORD OF WRT BFR 
ENDIF [WHICH CONTAINS THE RECORD COUNT 


REPEAT sREPEAT UNTIL ALL DATA IS COMPARED: 


IF R2 EQ CKDCNT THEN sIf THIS IS THE LAST BYTE THEN: 
020237 016610 CMP R2,CKDCN 
001011 BNE 505348 
IFB SWBFLG NE #0 THEN ;IF BYTE SWAPPING IS ENABLED THEN 
105737 003526 TSTB 


BEQ 50335$ 
IF #B1T00 NOTSETIN CKDCNT THEN :1F RECORD ww" IS ODD 
032737 000001 016610 BIT 1T00,C 
001002 BNE 505368 
105723 TST8 (R3)+ sLAST BYTE WILL BE IN 
105724 ;THE UPPER BYTE. 


50336$: 
50335$: 


50334$: 
121314 CMPB (R3),(R4) zARE THEY EQUAL. 
001452 


BEQ 3BR_IF SO. 
016612 Ma CKDFF 31 ST TIME woe 


NOT. 
003300 INC VFYCNT(RS) ZINC THE VERIFY ERROR COUNTER. 
003310 INC HRDCNT(RS) ;INC_THE HARD ERROR COUNT. 
ERRHRD 17,WTVERM,DTAERM  ;REPORT WRITE/VERIFY ERROR. 
‘a, genes 


-WORD WTVERM 


WORD DTAERM 
: LET CKDFF := CKDFF + #1 ; INCREMENT # OF BYTES IN ERROR. 
016612 INC CKDFF 
00344 MOVB (R4),TIME1 3 SAVE WAS DATA FOR TYPOUT. 
003446 BIC *#177400,TIME1 LEAR GARBAGE. 
5 MOVB (R3), ine 2 SAVE SHOULD = DATA FOR TYPOUT. 
177400 003450 BIC 400, TIME2 
IF CKDFF uF Mate THEN IF ERROR BYTE COUNT IS LESS THAN 11: 
016612 000013 CMP CKDF 


BGE 
PRINTX #DTAER2,R2,<B,TIME1>,<B,TIME2> ;PRINT at ACT 


003450 
003446 


004763 
000004 


=—ooo 
paar = 


CSPNTX 
000012 ADD #12,SP 
50337$: 


& 
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3930 016530 105723 3$: TSTB (R3)+ ;UPDATE WRITE BUFFER ADDRESS. 
3931 016532 105724 TSTB (R4)+ py READ BUFFER ADDRESS. 
3932 016534 105722 TSTB (R2)+ PDATE BYTE COUNTER. 

3933 016536 UNTIL R2 GT CKDCNT sEND OF iuth COMPARE REPEAT LOOP. 
(3) 016536 020237 016610 CMP R2,CKDCN 
(6) 016542 003702 BLE 50333$ 
3934 016544 LET CKDCNT := CKDCNT + #1 sCKDCNT EQUALS RECORD LENGTH. 
(6) 016544 005237 016610 INC CKDCNT 
3935 016550 IF CKDFF NE #40 THEN z1F COMPARE ERROR HAS — THEN: 
(6) 016550 005737 016612 TST CKDFF 
(9) 016554 001414 BEQ 50340$ 
3936 016556 PRINTB #DTAER3,CKDFF ,CKDCNT sPRINT # OF BYTES IN ERROR. 
(9) 016556 013746 016610 MOV CKDCNT, = 
(8) 016562 013746 016612 MOV CKDFF ,-¢ 
(7) 016566 012746 005032 MOV #DTAER3, 
(6) 016572 012746 000003 MOV #3,-(SP) 
(3) 016576 010600 MOV SP, 
(4) 016600 104414 TRAP CSPNTB 
(4) 016602 062706 000010 ADD #10,SP 
3937 016606 ENDIF 
(4) 016606 50340$: 
3938 016606 ENDIF 
(4) 016606 50331$: 
3939 016606 ENDIF 
(4) 016606 50327$: 
soet 016606 000207 RTS PC sOTHERWISE, RETURN. 
3942 016610 000000 CKDCNT: .WORD 0 3# OF BYTES TO BE VERIFIED -1. 


3943 016612 000000 CKDFF: .WORD 0 :# OF BYTES IN ERROR COUNTER. 
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a TO FIND THE FIRST DEVICE IN THE TEST SEQUENCE. 


OUTPUTS: 
REGISTERS: 
CALLS: 


016614 ::LET DROPED :B= #0 CLR UNIT DROPPED FLAG 
105037 CLRB DROPED 
LET RS := #0 sCLR DEVICE POINTER. 
005005 CLR RS 
WHILE DEVTBL(R5) EQ #NINUSE DO ;WHILE DEVICES a erg IN USE: 


026527 002536 177774 cMP DEVTBL(R 
001003 BNE 50342$ 
LET RS := R5 + #2 sPOINT TO NEXT DEVICE. 
062705 000002 ADD #2,R5 
ENDDO 
000771 BR 50341$ 


50342$: 
IF DEVTBL(R5) EQ #END THEN 31F ALL UNITS HAVE BEEN DROPPED THEN: 
prone 002536 177777 CMP DE 4 


BNE 50343 
DOCLN D0 CLEAN CODE AND TERMINATE PASS. 
TRAP CSOCLN 
ENDIF 
503438: 
LET LSLUN := DEVTBL(RS) ;SET UNIT # IN “HEADER'’ FOR ERROR REPORT 


016537 002536 002074 MOV DEVTBL(R 
000207 RTS PC ;RETURN WITH 1ST DEVICE IN R5. 


104444 


SUBROUTINE TO FIND THE NEXT UNIT IN THE TEST CYCLE. 
INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS: 


:: LET DROPED :B= #0 CLR UNIT DROPPED FLAG 
105037 003530 CLRB DROPED 


042705 177770 BIC #177770,R5 
REPEAT sREPEAT UNTIL THE went DEVICE IS FOUND. 


LET RS := R5 + #2 sUPDATE DEVICE TABLE POINTER. 
062705 000002 ADD #2,R5 
UNTIL DEVTBL(R5) NE #NINUSE 
026527 002536 177774 CMP DEVTBL(R 
re LET LSLUN DEVTBL (RS) 3SET UNIT # IN‘ HEADER" FOR ERROR REPORT 
016537 002536 002074 MOV DEVTBL(R 
000207 RTS PC ;RETURN. 


felelelejlejlelolelalolojo) =) 
Oe ee ee cn anananananan 
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SUBROUTINE TO DROP A DEVICE FROM THE TEST SEQUENCE. 
INPUTS: 


SEQ 0117 


OUTPUTS: 
REGISTERS: 
CALLS: MOVMSG, PRXST, LOG 
016716 :: LET RSSAVE := R5 
010537 MOV R5,R° SAV 
LET FTLCNT(RS) := FTLCNT(RS) + #1 ; INCREMENT THE FATAL ERROR COUNT. 
005265 INC FTLCNT(R 


LET R4 := MSGPKT#MS.XS3 CLR.BY #377 ;GET UDIAG ERROR CODE. FROM XSTAT 3. 
013704 MSGPKT+M 
042704 pic #377,R4 
LET R3 := MSGPKA(RS) sADR OF THIS UNIT'S MSG PACKET. 
016503 MSGPKA(R 
LET R2 := #0 ZCLR COUNTER. 
005002 CLR 
WHILE R2 NE #MSGCNT DO :WHILE THERE ARE MORE LOCATIONS: 
020227 000016 CMP R2,#MSGC 
001405 BEQ 50346$ 
LET (R3)¢ := #1 sINIT THE MSG PACKET WITH ALL 1°S 
012723 177777 MOV it, (R3) 


LET R2 := R2 + #2 ;UPDATE COUNTER. 


062702 000002 ADD —s- #2, R2 
ENDDO 
000770 BR 503458 


50346$: 
ziNITIATE A GET STATUS — 


LET @TSDB(RS5) := #GSCPK 
012775 002324 002456 
004737 011516 JSR PC, A 
004737 011552 JSR PC, MOV 

IF R4 EQ Hit RNY THEN 
020427 157400 


001005 
104455 


000020 
004570 
005642 


#GSCPK.@ 

:WAIT A WHILE FOR SSR=1 

‘MOVE MSG PACKET TO COMMON AREA. 

SIF WE HAVE A CAPSTAN RUNAWAY THEN: 
CMP R4,#X3.R 

03473 


BNE 
ERRDF 16,RNYM,STAERM ;REPORT CAPSTAN RUNAWAY WITH TACH CNT. 
TRAP CSERDF 


STAERM 


000402 
004737 


105737 
001404 


105237 
004737 


104424 


017140 


003473 


003530 
014664 


ELSE 
JSR PC,PRXST 

ENDIF 

IFB RECLOG NE #0 THEN 
LET DROPED :B= DROPED + #1 
JSR PC,LOG 

ENDIF 


DORPT 


sELSE-IF NOT A RUNNAWAY: 


BR 50350$ 


50347$: 
sPRINT EXTENDED STATUS REGISTERS. 


50350$: 
zIF THE RECORD HAS BEEN LOGGED THEN: 
TSTB RECLOG 
BEQ 50351$ 


INCB DROPED 


:SET UNIT DROPPED FLAG. 
;LOG DATA BYTES + RD/WR ERRORS. 


50351$: 
:PRINT PERFORMANCE REPORT 


TRAP CSDRPT 
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DROPUA: IF PASCNT(RS) NE #0 THEN 
005765 003260 TST PASCNT(R 
001402 BEQ 503528 
LET PASCNT(R5) := PASCNT(RS) = #1 
005365 003260 ENDIF DEC PASCNT(R 


50352$: 
LET DROPN := DEVTBL(RS5) ;SAVE # OF UNIT TO BE DROPPED. 
016537 002536 017136 MOV DEVTBL(R 
LET RO := R5 SHIFT -1 sRO=LOGICAL DEVICE NUMBER 
010500 MOV R5,RO 
006200 


ASR RO 
DODU RO ;DROP THE UNIT: EXEC BGNDU-ENDDU CODE IF IDU = 0 
RAP C$C0DU 


104451 
IF DEVTBL(RS) NE #NINUSE THEN ;IF UNIT NOT DROPPED 
026527 002536 177774 CMP DEVTBL(R 
001410 BEQ 503538 
IFB IREC EQ #0 THEN 3 IF RECOVERY IS ENABLED THEN: 
105737 002210 TSTB IREC 
001005 BNE 503548 


000240 

000240 NOP 
000240 NOP 

LET STAFLG :B= STAFLG + #1 3SET START FLAG TO ENABLE REWIND, 
105237 003536 INCB STAFLG 


ENDIF 
50354$: 
ENDIF 


50353$: 
DRORTN: LET DROPED :B= DROPED + #1 SET UNIT DROPPED FLAG. 
105237 003530 INCB DROPED 
LET RS := RSSAVE 


NNN 


a 
Mr 
= 


013705 003462 MOV RSSAVE .R 
017134 000207 RTS PC ;RETURN. 


017136 000000 : .WORD 0 3# OF UNIT TO BE DROPPED 
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4031 : SUBROUTINE TO PRINT EXTENDED STATUS REGISTERS. 
4032 $ INPUTS: 
4033 : OUTPUTS: 
4034 : REGISTERS: 
4035 3 CALLS: 
4036 
4037 017140 PRXST:: PRINTX #GETSTM 
(7) 017140 012746 005243 MOV #GEISTM, 
(6) 017144 012746 000001 MOV #1,-(SP) 
(3) 017150 010600 MOV SP,RO 
(4) 017152 104415 TRAP  CS$PNTX 
(4) 017154 062706 000004 ADD #4,SP 
4038 017160 PRINTX #STAERS,MSGPKT+MS.XSO,MSGPKT+MS.XS1,MSGPKT+MS.XS2,MSGPKT*MS .XS3 
(11) 017160 013746 002354 MOV MSGPKT+M 
(10) 017164 013746 002352 MOV MSGPKT+M 
(9) 017170 013746 002350 MOV MSGPKT+M 
(8) 017176 013746 002346 MOV MSGPKT+M 
(7) 017200 012746 006467 MOV #STAERS 
(6) 017204 012746 000005 MOV #5,-(SP) 
(3) 017210 MOV 
(4) 017212 104415 TRAP CSPNTX 
(4) 017214 062706 000014 ADD #14,SP 
4039 017220 000207 RTS PC 
4040 
4041 
4042 
4043 
4044 : SUBROUTINE TO HALT AFTER EACH COMMAND. 
4045 3 INPUTS: 
4046 : OUTPUTS: 
4047 : REGISTERS: R3, R4 
4048 : CALLS: 
4050 017222 CKHAE:: IFB HAE NE #0 THEN zI1F HALT FLAG IS SET: 
(6) 017222 105737 002206 TSTB =: HAE 
(9) 017226 001430 BEQ 50355$ 
4051 017230 IFB MISCFG EQ #0 THEN : 
(6) 017230 105737 003541 TSTB MISCFG 
(9) 017234 001023 BNE 503568 
4052 017236 MANUAL 31S MANUAL INTERVENTION ALLOWED? 
(3) 017236 104450 : TRAP CSMANI 
4053 017240 BNCOMPLETE CKHRTN :8R IF NOT. 
(2) 017240 103023 Bcc CKHRTN 
4054 017242 LET R4 := CMDWRD s COMMAND WORD. 
(4) 017242 013704 003430 MOV CMDWRD.R 
4055 017246 004737 007670 JSR PC,GCMDA sFETCH ADR OF CMD ASCII. 
4056 017252 LET HALTM :B= (R3)+ ‘MOVE CMD ASCII 
(4) 017252 112337 004126 MOVB  (R3)+,HA 
4057 017256 LET HALTM+1 :B= (R3)+ 
(4) 017256 112337 004127 MOVB (R3)+,HA 
4058 017262 LET HALTM+2 :B= (R3) : INTO MESSAGE. 
(4) 017262 111337 004130 MOVB _—(R3),HAL 
4059 017266 GMANIL HALTM,TIME1,1,YES | :HALT = WAIT FOR AN OEPRATOR INPUT. 
(3) 017266 104443 TRAP oC 
(3) 017270 000404 BR 100008 
(4) 017272 003446 .WORD TIME1 


~~ D> 
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017274 
017276 
01 
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ELSE 


LET MISCFG :B= #0 
ENDIF 
ENDIF 


CKHRTN: RTS PC 


SEQ 0120 


TSCODE 
_” 


50357$ 


MISCFG 


~-_ 2 
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SUBROUTINE TO CREATE THE SEQUENCE FOR A WRITE TAPE MARK 
fapuras® WILL EXECUTE COMMAND TO UUT. 


INPU 
OUTPUTS: CMDSEQ 
CALLS: SETUP, CMDAC, EXCUTE, GOWAIT 


LET R1 := #CMDSEQ 
012701 003544 #CMDSEQ, 
(R1)+ := #WTM ; COMMAND 
012721 100011 #WTM, (RI 
(R1)+ := #1 3 BRF 
012721 000001 #1,(R1)+ 
(R1)+ := #1 ; ITERATIONS 
012721 000001 #1,(R1)+ 
005721 PATTERN 
:= #END 3 TERMINATOR 
012721 177777 #END, (R1 
= #CMDSEQ ;TOP OF BUFFER 
012701 #CMDSEQ, 
004737 SET UP THE TABLE 
:LOAD THE wt 
PC oe THE WTM COMMAND 
004737 011166 ‘uall FOR THE COMMAND TO FINISH 
000207 RT As ;RETURN TO CALLER 


Soooooooooo 
23 St SS 
~“ 
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- TITLE MISCELLANEOUS SECTIONS 
-SBTTL REPORT CODING SECTION 


34+ 
; THE REPORT CODING SECTION CONTAINS THE 
¢ "PRINTS" CALLS THAT CENERATE STATISTICAL REPORTS. 


BGNRPT 
LSRPT:: 


LET RSSAVE := R5 zSAVE CURRENT DEVICE POINTER. 
003462 MOV RS,.RSSAV 
016614 PCF ;FIND THE FIRST UNIT. 

WHILE Devil (ns) ONE #END DO {WHILE THERE ARE MORE DEVICES: 


002536 177777 cMP DEVTBL(R 
50361$ 


BE 
PRINTS #RPT1A, DEVTBL(R5) ,PASCNT(R5) ,RECCNT (RS) 
003330 MO RECCNT(R 
003260 PASCNT(R 
DEVTBL(R 
#RPTIA,~ 
#4,-(SP) 
SP RO 
ne 
PRINTS 


PRINTS 


PRINTS 


MOV 
MOV #RPTID,- 
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000005 #5,-(SP) 
Vv 0 


SP,R 
CSPNTS 
000014 A #14,SP 
PRINTS #RPTIF ,WRREC(RS) ,RRREC (RS) ,RFREC(RS) 
008768 RFREC(RS 


— 


ewe 
wee 


— 
2sx 
— 
oooooooco°oo - 
22 SS 


#12,SP 
RFUNR(RS 
RUNR (RS 


PRINTS #RPT1G,WRUNR(R5) ,RRUNR(RS) ,RFUNR(R5S) 


IFB BADTSW NE #0 THEN 3 
002211 


BEQ 
017762 bir PC,,BTRPT :GO PRINT BAD TAPE SPOTS WHEN ENABLED 


50362$: 
PRINTS #RPT11,SCCNT(RS) ,HRDCNT(RS) ,FTLCNT(RS), —_ 


VFYCNT(R 


#14,SP 
JSR = PC,NEXTU sFIND THE NEXT UNIT. 
ENDDO 


503608 


50361$: 
LET RS := RSSAVE sRESTORE CURRENT DEVICE POINTER. 
013705 003462 MOV RSSAVE.R 
EXIT RPT 
000167 wOR 


-WORD JSJMP 
001230 «WORD 110010-2 


SUBR TO PRINT BAD i SPOTS DURING THE REPORT PRINTS 
WRITE RETRIES: a ore IVE COUNT 

BAD TAPE SPOTS: T PER TAPE PASS ONLY, NOT CUMULATIVE. 
COUNT OF RECOVERABLE WRITE ERRORS EXCLUDES BAD TAPE SPOTS. 


017762 : PRINTS #RPTIE,WRTYCT(RS) 3PRINT GLOBAL WRITE RETRY COUNT 
O17 ree 003250 MOV WRTYCTCR 


020655 MOV #RPTIE,- 





oz 


MISCELLANEOUS ee MACY11 30(1046) 
83 09:26 


CZTUVB.P11 


020156 


12=JUL= 
012746 
010600 
104416 
062706 


016537 
017703 
006203 


101402 
012703 


012746 
012746 
010600 
104416 
062706 


062704 


020227 
001014 


012746 
012746 


000002 


000006 
002550 
163500 


020705 
000002 


003520 
000002 


020772 
000002 
000006 


000002 
000012 


005302 
000001 


H1 
altott cos 09:44 PAGE 70-2 
T CODING SECTION 


LET BTPT := BTADDR(RS) ;BTPT IS BOTH THE BAD TAPE SPOT 
LET R3 := @BTPT SHIFT -1 zAND THE LOGGING INDEX 


PRINTS #RPT1J,R3 ;PRINT # OF BAD TAPE SPOTS 


SEQ 0124 


BTADDR(R 
@aBTPT,R3 
R3 


ADD #6,SP 
IF R3 NE #0 THEN zPRINT RECORD # IF BAD “a — 


BEQ 
CMP 


IF R3 HI #20. THEN 


BLOS 
LET R35 := #20. 320 BAD SPOTS IS THE ag 8 


ENDIF 
PRINTS #CRLF SP 


50364$: 


LET R4 := BTPT + #2 ;FETCH A BAD SPOT ID 


ADD 
LET R2 := #0 ;R2 = PRINT COUNT PER LINE: 10 oe 
REPEAT : 
50365$ 
PRINTS #RPTIK, (R4) zPRINT A BAD SPOT ID 


LET R2 := R2 + #1 ;COUNT PRINTS 
LET RG := R4 + #2 ~~ = =NEXT 
IF R2 EQ #10. THEN ; 


BNE 5 $ 
PRINTS #CRLFSP 3:GO TO NEXT PRINT LINE ye 10 et 


MOV 


50363$ 


R3,#20. 
50364$ 


#20. ,.R3 


#CRLFSP, 


BIPT,R4 
#2,R4 


R2 


RLF SP 
#1,-(SP) 
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7TUVB.P11 —- 12=JUL=83 09:26 REPORT CODING SECTION SEQ 0125 
(3) 020162 010600 MOV SP,RO 
(4) 020164 104416 TRAP C$PNTS 
(4) 020166 062706 000004 ADD #4,SP 
4165 020172 LET R3 := R3 = #10. sADJUST BAD SPOT COUNT 
(6) 020172 162703 000012 SUB #10. ,R3 
4166 020176 LET R2 := R2 = #10. yADJUST PRINT COUNT 
(6) 020176 162702 000012 SUB #10.,R2 
4167 020202 ENDIF : 
(4) 020202 50366$: 
4168 020202 UNTIL R2 EQ R3 sLIMIT: # OF BAD SPOTS 
(3) 020202 020203 CMP R2,R 
(6) 020204 001343 BNE 50365$ 
4169 020206 ENDIF : 
(4) 020206 50363$: 
4170 020206 PRINTS #CRLF : 
(7) 020206 012746 005277 MOV #CRLF -¢ 
(6) 020212 012746 000001 MOV #1,-(SP) 
(3) 020216 010600 SP, 
(4) 020220 104416 TRAP  CSPNTS 
(4) 020222 062706 000004 ADD #4, 
4i7t 020226 000207 RTS PC 
4184 .NLIST BEX 
4185 020230 047045 047045 040445 RPTIA: .ASCIZ /ENINTAUNIT XD13S3ZAPASS: %D5%S3ZARECORD : 3D52N/ 
4 020305 045 041101 052131 RPT1B: .ASCIZ /ZABYTES WRITTEN %D3%A,%23%A,%23%A, %232N/ 
4187 020356 040445 054502 042524 RPTIC: _ASCIZ ABYTES READ REV %D3%A,%23%A,2%23%A, 22 32N/ 
4 020427 045 041101 052131 RPTID: ASCII] /ZABYTES READ FWD %D3%A,%23%A,%23%A,%232N/ 
4189 020477 045 031123 022463 "ASCIZ /%S23ZAWRT%S4ZARDRIS4ZARDF 2N/ 
4190 020533 045 051101 041505 RPTIF: .ASCIZ /%ARECOVERABLE ERRORS %D5%S2%D5%S22052N/ 
4191 02 040445 047125 042522 RPT1G: .ASCIZ /%ZAUNRECOVERABLE ERRORS %D05%S2%D5%S22D52N/ 
4192 0206 045 053501 044522 RPTIE: .ASCIZ /%AWRITE RETRIESZS8%D52N/ 
4193 020705 045 022516 031104 RPT1J: .ASCIZ /%NZD2%A BAD SPOTS THIS TAPE PASS PRECEDING RECORD #:/ 
4194 020772 042045 022465 030523 RPTIK: .ASCIZ : 
4195 021001 045 051501 042520 RPT1I 1] “%ASPEC CONDZS3ZAHARDZS3ZAFATAL ZS 3%ACOMPAREZN'* 
419 021055 045 031523 045 SC1Z /ASSEpSESSEDSESSRDSTSSID DSZNIN/ 
4197 021112 047065 040445 040524 TAPCAP: .ASCI] /%NZATAPE LENGTH MUST BE 2400 FT. TO / 
4198 021156 047503 051122 041505 "ASCIZ /CORRECTLY RUN THIS TEST! !2N/ 
4199 “LIST BEX 
4200 “EVE 
4201 021212 ENDRPT 
(3) 021212 L10010: 
2 021212 104425 TRAP _— CSRPT 
4203 ;LOAD DEVICE PROTECTION TABLE 
4204 : TABLE FOR SUPERVISOR TO IDENTIFY THE P-TBL FOR THE LOAD DEV 
4205 : THE E UPERVISOR USES THE TBL TO WARN THE OPERATOR WHEN HE TRIES TO TEST THE LOAD 
4207 021214 BGNPROT 
(3) 021214 LSPROT:: 
4208 021214 000000 .WORD 0 :P-TBL OFFSET OF TSSR, THE TU80 CSR 
4209 021216 177777 “WORD =1 [P-TBL OFFSET OF MASS BUS UNIT #: -1 = NOT A MAS 
4210 021220 177777 “WORD =1 [P-TBL OFFSET OF DRIVE #: 1 = NONE ONE DRIVE P 
4211 021222 ENDPROT 
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CZTUVB.P11 12=JUL-83 09:26 INITIALIZE SECTION SEQ 0126 C2 


-SBITL INITIALIZE SECTION 


3+t 
; THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
; AT THE BEGINNING OF EACH PASS. 


021222 
021222 


BGNINIT 


LSINIT:: 
021222 INIT10: IF #BITO!BIT1 SETIN MCMDPKT THEN ;IF CMD PACKET IS NOT ON MODULO 4 BOUN 
032727 002314 BIT #B1TO!B1 


001421 BEQ 50367$ 
ERRSF 1,CMDPKM sPRINT ERROR MSG, 

104454 CSERSF 

000001 1 


004166 CMDPKM 
000000 9 


NNuww 


DELAY 20. 


.WORD 
GO TO SUPERVISOR, WAIT 
MOV 


012727 000024 
000000 
013727 002116 
000000 
177772 
177756 


LSDLY, (P 

-6(PC) 

=22(PC) 
20 


~ aa 
MMNNNNNIWUNU FW Oo 
ee ee ee ee ee ee we I ee ee 


oie INIT10 
021274 


021274 
heh A 002204 
001413 


105037 002204 CLRB CLRFLG zs INIT CLR FLAG. 

LET R2 := #0 
005002 CLR R2 

WHILE R2 NE #ACNTLEN DO 

50371$: 

020227 000550 CMP R2,#CNTL 
selene LET WRBC(R2) #0 CLR ALL STATISTICAL COUNTERS 508728 
005062 002560 CLR WRBC(R2) 


LET R2 := R2 + #2 
062702 000002 ADD #2,R2 


ENDDO 
000770 50371$ 


50367$: 


IFB CLRFLG NE #0 THEN z1F CLR COUNTERS FLAG sere 


CLRFLG 
503708 


BR 
50372$: 
50370$: 


ENDIF 


105737 
001406 


012737 


IFB RRANV NE #0 THEN 
002205 . 
LET RANB := #RANBC 
153624 003442 





z1F RESET RANDOM VARIABLE FLAG IS SET TH 
TSTB RRANV 


BEQ 503738 
zRESET RANDOM BASE #. 
MOV #RANBC R 





kK 1 
MISCELLANEOUS SECTIONS MACY11 30(1046) 12-JUL-83 09:44 PAGE 71-1 
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CZTUVB.P11 


1436 
021440 
021442 


021456 
021462 


021476 


12=JUL-83 


012737 


012700 
104447 


103030 
105237 
012705 
105037 


012765 
162705 


005705 
001371 


013705 
006305 


162705 
010565 
006265 
005705 
001370 
012700 
104447 
103004 
105237 
105237 
104421 
010037 
005003 


105737 
001020 


09:26 


032561 003444 


000040 


003536 
000006 
003341 


177774 
000002 


002536 


002012 


000002 


002536 
002536 


000034 


003536 
003537 


003542 


003537 


INIT15: 


INIT16: 


LET RANS := #RANSC 
ENDIF 
READEF #EF.START 


BNCOMPLE TE INIT15 

LET STAFLG :B= STAFLG + #1 

LET RS := #6 

LET HERE :B= #0 

REPEAT 
LET DEVTBL(RS) := #NINUSE 
LET RS := R5 = #2 

UNTIL R5 EQ #0 


LET RS := LSUNIT SHIFT 1 


REPEAT 
LET RS := R5 = #2 
LET DEVTBL(R5) := RS SHIFT -1 


UNTIL RS EQ 40 


READEF #EF .PWR 


BNCOMPLETE INIT16 
LET STAFLG :B= STAFLG + #1 
LET PWRFLG :B= PWRFLG + #1 


RFLAGS OPFLAG 


LET R3 := #0 
IFB PWRFLG EQ #0 THEN 


SEQ 0127 
;RESET RANDOM SAVE LOCATION. 
MOV #RANSC ,R 
50373$: 
;READ START COMMAND EVENT FLAG. 
MO #EF .STAR 


V 

TRAP CSREFG 
sBRANCH IF NOT STARTING. 

BCC INIT15 
3SET START COMMAND FLAG. 

INCB STAFLG 

MOV #6,R5 
zCLEAR THE ‘BEEN HERE BEFORE’’ FLAG 

CLRB HERE 
z INITIATE UNIT ae 5 TABLE 
3BY STORING NOT IN USE IN EACH LOCATION. 

MOV #NINUSE 


#2,R5 


RS 
50374$ 
LSUNIT,R 
R5 
sSTORE ALL UNIT 
375$: 


NUMBERS IN DEVTBL. 
#2,R5 


MOV RS ,DEVTB 
ASR DEVTBL(R 


TST R5 
BN 50375$ 
HAS THERE BE A POWER FAILURE? 
MOV #EF PWR 
TRAP CSREFG 
BRANCH IF NOT. 
BCC INIT16 
z1F SO - SET THE START FLAG. 
N STAFLG 


zI1F SO = SET THE POWER FAIL FLAG. 
INCB PWRFLG 


zREAD AND STORE FLAGS SET BY OPERATOR 
TRAP CSRFLA 
MOV RO.OPFLA 


CLEAR EVENT FLAG 


CLR R3 
z1F POWER FAIL HAS NOT OCCURRED THEN: 
TSTB PWRFLG 
50376$ 
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READEF #EF .NEW ;UPDATE PASS COUNT WHEN 
916700 000035 MOV WEF NEW, 
104447 TRAP CSREFG 
IFCOND CS THEN sSUPERVISOR IS IN NEW PASS 
103014 BCC 50377$ 
IFB STAFLG EQ #0 THEN ;AND DIAG WAS NEITHER STARTED 
105737 003536 TSTB STAFLG 
001010 50400$ 


BNE 
READEF #EF.RES :NOR 
o1e700 000037 MOV WEF .RES, 
104447 CSREFG 
IFCOND CC THEN ;RESTARTED 
103402 50401$ 
LET R3 := COMP RS ;D0 IT 
005103 com R3 
ELSE 
000401 BR 50402$ 


50401$: 
: LET R3 := R3 + #1 ;SET 1ST PASS IF NEW PASS AND 
005203 INC R3 
ENDIF RESTARTING 
50402$: 


ELSE 
000401 BR 


50400$: 
LET R3 := R3 + #1 SET 1ST PASS IF NEW Rank 
ENDIF 3 STARTING 
ENDIF 
ENDIF 30R ON POWER -_ 3768 
004737 016614 JSR PC ,FIRSTU INIT DEVICE POINTER. — 
LET R2 := #0 ZINIT DEVICE COUNTER. 
005002 CL R2 
WHILE DEVTBL(RS) NE #END DO 
50404$: 
026527 002536 177777 CMP Oeics 


001450 BEQ 50405 
LET R2 := R2 + #1 


005203 


005202 INC R2 
LET RO := R5 SHIFT -1 
010500 MOV Re. RO 


006200 ASR 
GPHARD RO,RO 3GET HARDWARE P TABLE = SUPER 
104442 TRAP CSGPHRD 
IFCOND CS THEN 
103036 BCC 50406$ 
LET TSSR(RS) := (RO) zSAVE TSSR ADDRESS. 
011065 002466 MOV (RO), TSS 
LET TSDB(RS5) := (RO)+ = #2 ;SAVE TSDB ADDRESS. 
012065 002456 MOV (RO)+,TS 
sachin mapas ee LET TSVCT(RS) (RO) SAVE INTERRUPT VECTOR ADDRESS nett 
011065 002476 MOV (RO), TSV 
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021612 


ADD 

IF R3 NE #0 THEN sACTUAL PASSCOUNT oe R3 
BEQ 
TST 


BGE 
LET PASCNT(RS5) := PASCNT(RS) + #1 
003260 INC PASCNT(R 


ELSE 
50411$ 


IF R3 LT #0 THEN 


BR 
50410$: 
LET PASCNT(RS) : 
012765 000001 003260 MOV #1,PASCN 


ENDIF 
50411$: 


ENDIF 
50407$: 
ENDIF 


50406$: 
LET RECCNT(RS) := 40 CLEAR RECORD COUNT 
005065 0(3330 CLR RECCNT(R 


004737 016662 ada PC ,NEXTU :D0 IT FOR ALL DEVICES. 


000724 BR 50404$ 
021676 50405$: 


021676 IF R2 EQ #0 THEN 71F THERE ARE NO UNITS: 
005702 TST 
001026 BNE 
PRINTF #AUDRPM zPRINT ALL UNITS DROPPED, 
012746 004731 MOV 


000001 MOV 
MOV 
jig 
000004 #4 ,SP 
DELAY 20. GO TO SUPERVISOR, WAIT » SECONDS, 
000024 MOV #20. ,(PC 


002116 MOV LSOLY,(P 
177772 ~6(PC) 


BN . 
177756 ~22(PC) 
BNE 20 
GO TO SUPERVISOR, GER Ty. 
3D0 CLEAN CODE + ABORT PASS. 
TRAP 


CSBRK 


104444 
021756 
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021756 50412$: 


021756 SETPRI #PRI00 zLOWER CPU PRIORITY TO 0 
000000 MOV #PRIOO,R 


TRAP CSSPRI 
IFB IREC EQ #0 AND #ADR NOTSETIN OPFLAG THEN IF me a inet EN 


002210 
BNE 50413$ 
000020 003542 ; BIT #ADR, OPF 
BNE 50413$ 
016614 JSR PC,FIRSTU ;AND AUTO-DROP NOT CALLED, THEN SET UP F 
WHILE BEVTBL (RS) NE #END DO WHILE THERE ARE MORE DEV VICES: 


026527 002536 177777 cMP DEVTBL(R 
50415$ 


001533 BEQ 
BEGIN COUNTER ar 3.5 MINUTE COUNTER 
INCR TIME1 FROM #1 TO #25 BY # 

012737 000001 003446 MOV #1,TIME1 

000402 8 50417$ 
50420$: 

005237 003446 I TIME1 
50417$: 

023727 003446 000025 Cc TIME1,#2 

003106 $ 


50421 
LET @TSDB(R5) := #GSCPK ;AND GET UNITS STATUS 
012775 002324 002456 MO #GSCPK,@ 
DELAY 32. sWAIT 3.2 MSEC. 
012727 000040 MOV #32. ,(PC 


002116 MOV LSOLY,(P 

177772 —o 

177756 =22(PC) 

BNE -720 
IF #TS.SSR SETIN @TSSR(R5) THEN 

032775 000200 002466 #TS.SSR, 

001420 504228 

IF #TS.OFL NOTSETIN @TSSR(R5) THEN 

032775 000100 002466 #TS.OFL, 
001001 BNE 504238 
LEAVE COUNTER sEXIT COUNTER WHEN UNIT ON LINE 

— BR 50416$ 


504238: 
PRINTF #OFLINM,DEVTBL(RS) ;PRINT UNIT OFF LINE EVERY, 10, SEC 

002536 MOV BL(R 

005213 OOF het 

00 #2, LSPS 

si 

000006 #6,SP 

50424$: 


022146 000412 504258 
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UVB.P11 


000076 
022276 


022312 


023727 
003404 
004737 
004737 


004737 
000641 


105737 
001026 


104431 


000001 


003450 
003450 


000310 
002116 
177772 
177756 


003446 


071552 
012274 


016662 


003537 


003450 


000013 


000025 


INITIALIZE SECTION 


SEQ 0131 


PRINTF #NRDYM,DEVTBL (RS) 


ENDIF 


DEVTBL(R 
#NRDYM, = 
#2,-(SP) 
SP,RO 
CSPNTF 
#6,SP 
50425$: 


INCR TIME2 FROM #1 TO #13 BY #1 


DELAY 200. 


BREAK 
ENDINC 


ENDINC 


END COUNTER 
IF TIME1 GT #25 THEN 


JSR PC,MOVMSG 
JSR PC,TCC1 
ENDIF 


JSR PC,NEXTU 
ENDDO 
ENDIF 
IFB PWRFLG EQ #0 THEN 


MEMORY DATAWT 


BGT 
WAIT FOR UNIT TO BE voit ~ fngreay 


#1,TIME2 
50426$ 
50427$: 
50426$: 


TIME2 
TIME2 #1 
30$ 


#200. ,(P 
LSDLY,(P 
-6(PC) 
=22(PC) 


72 


CSBRK 
50427$ 


sALLOW TERMINAL INTERRUPT 


50430$: 


BR 504208 
50421$: 


50416$: 
sIF OFF LINE FOR 3.5 MINUTES 


TIME1 #2 


BLE 50431$ 
:GET MESSAGE PACKET 
[PRINT ERROR AND DROP OFF LINE UNIT 


50431$: 
REPEAT UNTIL ON oy OR TIMED OUT. 
3SET UP FOR NEXT UNIT. 


BR 50414$ 
50415$: 


504138: 
TSTB PWRFLG 


BNE 50432$ 
REQUEST MEMORY FROM SUPER FOR RD/WR BUF 
TRAP CSMEM 





MISCELLANEOUS 
CZTUVB.P11 


022314 


022510 


022514 
022514 
022514 


SECTIONS 


MACY11 30(1046) 


12=JUL=83 09:26 


010037 


013737 
062737 


027727 
002011 


012746 
012746 
10600 


0 
104417 
062706 


104444 


105037 


012703 
004737 


105037 


104432 
000104 


047 
022514 


104411 


003416 
003416 
004000 


161056 
022412 
000001 


000004 


002215 


003536 
011502 


003537 
051106 


043102 
042522 


003420 
003420 


004000 


teed 


051522 
046055 


047515 
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RO,DATAW 
LET DATARD := DATAWT + #DATCNT 7SET RD BFR AD 
MOV DATAWT ,D 
ADD #DATCNT, 
IF @DATAWT LT #DATCNT THEN zWHEN NOT ENOUGH FREE MEMO AVAILABLE 
cMP aDATAWT, 
04338 
PRINTF #MEMOM ;WARN OPERATOR 


DOCLN zAND ABORT PASS TRap 
ENDIF zDIAG MUST BE RE-LOADED IN A CPU WITH LARGER MEMO 
50433$: 


ENDIF 
50432$: 


LET CHGFLG :B= 40 3CLR CHANGE CMD SEQ TBL FLAG. 
CLRB CHGFLG 
LET R3 := #ENDFLG 
MOV #ENDFLG, 
JSR PC,CLRERR sCLEAR ALL FLAGS. 
LET PWRFLG :B= #0 [CLEAR THE POWER FAIL FLAG. 
CLRB PWRFLG 
EXIT INIT 
TRAP CSEXIT 


WORD 1L10012-. 
«ASCII /%AFREE MEMO TOO SMALL FOR RD-WR BFRSZN/ 


eASCIZ /%ARE-LOAD IN LARGER MEMOZN/ 


EVEN 


ENDINIT 
L10012: 
CSINIT 
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TUVB.P11—-12=JUL-83 09 AUTO DROP SECTI SEQ 0133 
4380 .SBITL AUTO DROP SECTION 
382 
4383 SECTION EXECUTED AFTER THE INIT CODE WHEN “ADR™ FLAG IS SET BY OPERATOR 
4384 SSECTION CHEKS FOR A VALID INTERFACE LOCATION. DROPS UNIT IF NO RESPONSE 
4385 PROM INTERFACE. 
4386 i= 
4387 
4388 022516 BGNAUTO 
4g, 022516 LSAUTO: : 
4390 022516 004737 016614 JSR PC, FIRST :FIND FIRST UNIT 
4391 022522 WHILE BEVTBL(RS) NE #END DO: 
(4) 022520 504348: 
(6) 022522 026527 002536 177777 CMP = s«éEVTBLCR 
(9) 022530 001525 BEQ 50435$ 
4392 022532 LET TRAPD4 :B= #0 : 
(4) 022532 105037 003540 CLRB = TRAPD4 
4393 022536 SETVEC #4,#TRAP4 ,APRIO7 SET VECTOR 4 
(7) 022536 012746 000340 mov —s«#PRIO7,- 
(6) 022542 012746 023132 MOV —« #ATRAP4, = 
(5) 022546 012746 000004 MOV =: #4, = (SP) 
(4) 022552 012746 000003 MoV. =: #3, ~(SP) 
(3) 022556 104437 TRAP CoSVEC 
(2) 022560 962706 000010 ADD _—«#10,SP 
4394 0225 LET R2 := @TSSR(R5S) ADDRESS TU80 INTERFACE 
(4) 022564 017502 002466 @TSSR(RS 
4395 022570 CLRVEC #4 ZCLEAR VECTOR AT 4 
(3) 022570 012700 000004 V-#4, RO 
(3) 022574 104436 TRAP —-CSCVEC 
4396 022576 IFB TRAPD4 NE #0 THEN 
(6) 022576 105737 003540 TSTB  —-TRAPD4 
(9) 022602 001423 BEQ  50436$ 
4397 022 LET FTLCNT(RS) := FTLCNT(RS) + #1 
(6) 022604 005265 003320 INC _—FTLENT(R 
4398 022610 PRINTF #AUTODM, TSSR(RS) PRINT ERROR 
(8) 022610 016546 002466 Moy _TSSRCRS) 
(7) 022614 012746 023006 MOV AUTODM, 
(6) 022620 012746 000002 MOV fe. =(SP§ 
(3) 022624 010600 MOV P-RO 
(4) 022626 104417 TRAP CSPNTF 
(4) 022630 062706 000006 ADD __4#6,SP 
4399 022634 LET DROPN := DEVTBL(RS) ;SAVE # OF UNIT TO BE DROPPED. 
(4) 022634 016537 002536 017136 MOV __DEVTBLCR 
4400 022642 LET RO := RS SHIFT 1 ;RO=LOGICAL DEVICE NUMBER 
(4) 022642 010500 MOV RS.RO 
(7) 022644 006200 ASR RO" 
4401 022646 popu RO :DROP THE UNIT: EXEC BGNDU-ENDDU CODE IF 
(3) 022646 104451 TRAP CSDODU 
4402 022650 ELSE 
(4) 022650 000452 BR 504378 
(3) 022652 504368: 
4403 022652 LET aTSDB(RS) := #GSCPK SEND GET STATUS COMMAND 
(4) 022652 012775 002324 002456 MOV - AGSCPK,@ 
4404 022660 004737 011516 JSR_PC,WSSR WAIT 
4405 022664 Pe yTScS8R SETIN @TSSR(RS) THEN 
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4424 


023110 


032775 
001423 


032775 
001416 


005265 
016546 


005265 
016546 


040445 
051124 


So 
™ 
So 
— 
=n 
= 


So 
wn 
— 
— 
=] 


So 
™m 
So 
= 


3 

— 

Rink 
SOWNOMUIO 


040440 
4 


000200 
000100 
003320 


002536 
005213 
000002 


000006 
017046 


003320 
002536 


016662 


052502 
050101 
047445 


044501 


030504 


002466 


002466 


020123 
040440 
022466 


052116 


040445 


AUTO DROP SECT 


L10013: 


AUTODM: 


NRDYM: 


IF #TS.OFL SETIN @TSSR(RS) THEN 


LET FTLCNT(RS) := FTLCNT(RS) + #1 
PRINTF #OFLINM,DEVTBL (RS) 


JSR PC,DROPUA 
ENDIF 
ELSE 


LET FTLCNT(RS) := FTLCNT(RS) + #1 
PRINTF #NRDYM,DEVTBL (RS) 


JSR PC,DROPUA 
ENDIF 


ENDIF 
JSR PC ,NEXTU 
ENDDO 


ENDAUTO 


eASCII /%ABUS TRAP AT %062N/ 


50441$: 


50440$: 


50442$: 
50437$: 


50435$: 


-ASCIZ /%AINTERFACE BAD OR NOT SET TO ABOVE ADZN/ 


eASCIZ /%AUNIT %D1%A NOT RDY2ZN/ 


TRAP 


SEQ 0134 
#TS.SSR, 
50440$ 
#TS.OFL, 
50441$ 
FTLCNT(R 
bey tay 

#OFLINM, 
fa, <(5P) 


SPR 
CSPNTF 
#6,SP 


504428 


FTLCNT(R 
DEVTBL(R 
#NRDYM, - 
#2.-(SP) 
CSPNTF 
#6,SP 


50434$ 


CSAUTO 


MISCELLANEOUS SECTIONS 
CZTUVB.P 
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6 047040 052117 051040 
4 054504 047045 000 
023132 


023132 
023132 105237 003540 
023136 000002 


MACY11 30(1046) 


F 11 
12=JUL=83 or a PAGE 71-9 


AUTO DROP SECTI 


TRAP: : 


-EVEN 

DEVICE BUS TRAP HANDLER 

OUTPUT: TRAPD4 BYTE 1: TRAPED AT 4 
0: NO TRAP 

LET TRAPD4 :B= TRAPD4 + #1 

RTI 


INCB 


SEQ 0135 


TRAPD4 


Ci 


MISCELLANEOUS SECTIONS 
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UVB.P11 


So 


SQOOoooooooooo 


004737 


026527 


104432 
0 


00002 


MACY11 


016614 


002536 
011516 
002476 
016662 
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CLEANUP CODING SECTION SEQ 0136 Ci 


-SBITL CLEANUP CODING SECTION 


THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
AT THE END OF EACH PASS. 


BGNCLN 
LSCLEAN:: 


JSR PC, FIRSTU :FIND FIRST UNIT. 
WHILE DEVTBL(R5) NE #END DO 
50443$: 


177777 CMP 
Q 


3 

JSR PC,WSSR ;WAIT FOR UNIT READY OR TIMEOUT, 

CLRVEC TSVCT(RS) SRELEASE INTERRUPT VECTORS FOR ALL DEV. 
4 TSVCT(RS 


JSR PC,NEXTU 3FIND NEXT UNIT. 
ENDDO 


EXIT CLN 


ENDCLN 
L10014: 
TRAP CSCLEAN 


ba we SECTIONS 


TUVB.P11 12=JUL-83 09 


023202 
023202 


4491 023202 
(4) 023202 010005 
(7) 023204 006305 
(4) 023206 012765 


(8) 023214 013746 


(3) 023242 000000 


4508 023244 
(3) 023244 
(3) 0235244 104453 


macy 30(1046) 


177774 002536 


01713 
006702 


000006 


11 
12=JUL=83 4 a PAGE 71- i 


DROP UNIT SECTI SEQ 0137 
.SBITL DROP UNIT SECTION 
7 THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO NO LONGER BE TESTED. THAT CODE SHALL BE EXECUTED WHEN DOD 
;MACRO 18 CALLED WHILE IDU FLAG IS NOT SET BY SPERATOR 
BGNDU 
L$DuU:: 
LET RS := RO SHIFT 1 5 = LOGICAL DEVICE NUMBER X 2. 
my ages 
LET DEVTBL(RS) := #NINUSE :SET NOT IN USE FLAG FOR THE DEVICE. 
MOV #NINUSE , 
PRINTF #DROPDM,DROPN ;PRINT DROP DEVICE MESSAGE 
MOV DROPN, -¢ 
MOV #DROPDM 
MOV #2,-(SP) 
MOV SP,RO 
TRAP  CSPNTF 
ADD #6,SP 
EXIT DU 
«WORD JSJMP 
<WORD 110015-2 
ENDDU 
L10015: 


TRAP C$DU 
























111 
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4511 -SBITL ADD UNIT SECTION 


4513 
4514 THe ADD-UNIT SECTION ys THE CODING THAT CAUSES A DEVICE 
4515 ; TO BE (A) TESTED FOR THE FIRST TIME, OR (B) RESUMED IN TESTING. IF 
t2i6 3: “EF.AUNIT’ IS SET, THE UNIT WILL BE TESTED AS A NEW UNIT. 
4518 
4519 023246 BGNAU 
(3) 023246 L$AU:: 
i 
4527 023246 LET RS := RO SHIFT 1 zR5 = LOGICAL DEVICE NUMBER X 2. 
(4) 023246 0100C5 MOV RO,R5S 
(7) 023250 006305 ASL R5 
4528 023252 LET DEVTBL(RS) := RO sSTORE UNIT # IN DEVICE TABLE. 
(4) 023252 010065 002536 MOV RO,DEVTB 
4529 023256 GPHARD R0,RO 3GET HARDWARE P TABLE FROM SUPER. 
(3) 023256 104442 TRAP CSGPHRD 
4530 023260 LET TSSR(RS) := (RO) zSAVE TSSR ADDRESS. 
(4) 023260 011065 002466 MOV (RO), TSS 
4531 023264 LET TSDB(R5) := (RO)+ = #2 :SAVE TSDB ADDRESS. 
(4) 023264 012065 002456 MOV (RO)+,TS 
(6) 023270 162765 000002 002456 SUB #2, TSDBC 
4532 023276 LET TSVCT(RS) := (RO) SAVE INTERRUPT VECTOR ADDRESS. 

(4) 023276 011065 002476 MOV (RO), TSV 
4533 623302 SETVEC TSVCT(RS) ,TS4INT(RS) ,MINTPRI SET UP INTERUPT PROCESSING COND 
(7) 023302 012746 000340 MOV #INTPRI, 
(6) 023306 016546 002516 MOV TSGINT(R 
(5) 023312 016546 002476 MOV TSVCT(RS 

000003 MOV 


#3,-(SP) 
CSSVEC 


(3) 023322 104437 

(2) 023324 062706 000010 ADD #10,SP 
4534 023330 LET INTFLG(RS) := #0 CLEAR INTERRUPT FLAGS. 

(4) 003500 CLR INTFLG(R 













EXIT AU 





JSJMP 
L10016=2 
~EVEN 
4551 023340 ENDAU 
(3) 023340 L10016: 
(3) 104452 TRAP CSAU 


ENDMOD 









J 
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023352 
023352 
023352 


023354 


12-JUL=83 09:26 ADD UNIT SECTION 


- TITLE HARDWARE TESTS 
-SBTTL TEST 1: BASIC FUNCTIONS. 


p++ 
; TEST TO EXECUTE ALL TU80 FUNCTIONS. 


BGNMOD 
BGNTST 


LET RANDOM :B= 
LET EXPBOT :B= 


105037 003523 
105037 003522 

BGNSUB 
104402 

LET R2 := 


PC .BFSEQ 
JSR PC,,EXALL 


JSR PC ,FIRSTU 
WHILE DEVTBL(R5) NE #END DO 


#BFSEQO 
012702 024200 
004737 


026527 002536 177777 
001434 
LET R2 := MSGPKACRS) 
LET R2 := R2 + #12 
LET TS4CL(R5) := 


016502 002506 
062702 C00012 


011265 002526 
042765 177400 002526 


IF PASCNT(RS) EQ #1 THEN 
026527 003260 000001 
001014 


002526 


000010 
ENDIF 
016662 JSR = PC,NEXTU 
ENDDO 
000740 


CLR THE RANDOM steamer" yees 
CLR EXPECT BOT FLAG. 


BNE 
PRINTF #CODELM,DEVTBL(RS),TS4CL(RS) ;PRINT THE TU8O A ag Be: LEVEL. 





SEQ 0139 


RANDOM 
CLRB EXPBOT 


;SUBTEST 1 = SET CHAR, DRIVE INIT, GET S 


TRAP C$8SUB 


zADR OF CMD SEQ. 


MOV #8F SEQO, 
zSET UP CMD SEQ. 
sEXECUTE 5 SEQ ON ALL DEVICES. 
;FIND THE FIRST UNIT. 
[WHILE THERE ARE MORE DEVICES: 
50445$: 
Cc DEVTBL(R 
BEQ 504468 
MOV MSGPKA(R 


GET MSG PACKET ADR, 


3GET XSTAT2 ADR, 


ADD #12,R2 
(R2) CLR.BY #177400 ;STORE CODE LEVEL FROM 7" R GYTE, 


BIC in Ro 208, 
CMP PASCNT(R 
47$ 


zIF THIS IS PASS 1 THEN: 


L CRS 
VIBL CR 


50447$: 


;FIND NEXT UNIT. 


BR 
50446$: 
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L10020 ~eufeo 
104403 ; CSESUB 


T1.2 — ;SUBTEST 2 = REWIND. 
104402 = ‘ct 


LET R2 := #BFSEQ1 zADR OF CMD SEQ. 
012702 024252 #BFSEQ1, 
004737 024154 JSR PC ,BFSEQ 7SET UP CMD SEQ. 
004737 006760 JSR PC,EXALL SEXECUTE CMD SEQ ON ALL DEVICES. 
LET STAFLG :B= 40 [CLEAR START FLAG 
105037 003536 CLRB STAFLG 
ENDSUB 
L10021: 
023520 104403 TRAP C$ESUB 


023522 BGNSUB sSUBTEST 3 = WRITE/VERIFY. 
023522 71.3: 
023522 104402 TRAP C$B8SUB 


023524 LET R2 := #BFSEQ2 zADR OF CMD SEQ. 
012702 024264 MOV #BFSEQ2, 
004737 024154 JSR PC ,BFSEQ 3SET UP CMD SEQ. 
004737 006760 us PC,EXALL s EXECUTE CMD SEQ ON ALL DEVICES. 
110022: 
023540 104403 TRAP CSESUB 


023542 ae sSUBTEST 4 - WRITE TAPE MARK, ERASE. 
104402 . TRAP  C$BSUB 


:= #BFSEQ3 zADR OF CMD SEQ. 

012702 024356 MOV #BFSEQ3, 
004737 024154 PC,BFSEQ 3SET UP CMD SEQ. 

004737 006760 J PC,EXALL EXECUTE CMD SEQ ON ALL DEVICES. 


L10023: 
023560 104403 TRAP CSESUB 


023562 sSUBTEST 5 = SPACE FILES. 
023562 71.5: 
023562 104402 TRAP C$BSUB 


:= #BFSEQ4 zADR OF CMD SEQ. 
012702 024430 MOV #BFSEQ4, 
004737 024154 PC ,BFSEQ :SET UP CMD SEQ. 

004737 006760 JSR PC ,EXALL sEXECUTE CMD SEQ ON ALL DEVICES. 


L10024: 
104403 TRAP CSESUB 


71.6 SUBTEST 6 = SPACE RECORDS. 
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023702 
023702 
023702 


023720 


MACY11_30(1046) 


12-JUL-83 09:26 


104402 


01270. 
00473 
004737 


104403 
104402 
012702 
004737 
004737 


104403 


104402 


012702 


104402 


012702 


104403 


104402 


024544 
024154 
006760 


024576 
024154 
006760 


024630 
024154 
006760 


lev“ 7 44 PAGE 73-2 
: BASIC FUNCTIONS. 


L10025: 


71.7: 


L10026: 


71.8: 


L10027: 


71.9: 


L10030: 


T1.10: 


L10031: 


LET R2 := 


JSR 
JSR 
ENDSUB 


BGNSUB 


LET R2 := 


JSR 
JSR 
ENDSUB 


BGNSUB 


LET R2 := 


JSR 
JSR 
ENDSUB 


BGNSUB 


LET R2 := 


JSR 
JSR 
ENDSUB 


BGNSUB 


LET R2 := 


JSR 
JSR 
ENDSUB 


#BF SEQ5S 


PC ,BFSEQ 
PC,EXALL 


#BFSEQ6 


PC ,,BFSEQ 
PC ,EXALL 


#BFSEQ7 


PC ,BFSEQ 
PC,EXALL 


#BF SEQ8 


PC ,BFSEQ 
PC,EXALL 


#BF SEQ9 


PC, ,BFSEQ 
PC,EXALL 


SEQ 0141 
TRAP C$BSUB 


zADR OF CMD SEQ. 


MOV #BFSEQS, 
3SET UP CMD SEQ. 
SEXECUTE CMD SEQ ON ALL DEVICES. 


TRAP CSESUB 


SUBTEST 7 = WRITE RETRY. 


TRAP C$BSUB 


zADR OF CMD SEQ. 


MOV 4BFSEQ6, 
;SET UP C 


MD SEQ. 
TEXECUTE CMD SEQ ON ALL DEVICES. 


TRAP C3cSUB 


SUBTEST 8 = READ REV RETRY. 


TRAP C$BSUB 


sADR OF CMD SEQ. 


MOV #BFSEQ7, 


:SET UP CMD SEQ. 
sEXECUTE CMD SEQ ON ALL DEVICES. 


TRAP C$ESUB 


SUBTEST 9 = READ FWD RETRY. 


TRAP C$BSUB 


zADR OF CMD SEQ. 


MOV #BF SEQS, 
3SET UP CMD SEQ. 
SEXECUTE CMD SEQ ON ALL DEVICES. 


TRAP CSESUB 


SUBTEST 10- CLEAN. 


TRAP C$BSUB 


zADR OF CMD SEQ. 


MOV #BFSEQ9, 
;SET UP CMD SEQ. 
‘EXECUTE CMD SEQ ON ALL DEVICES. 





HA 
7 4 
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023720 104403 TRAP C$ESUB 


Oc37se BGNSUB ;SUBTEST 11 = WIV SWAPPED DATA BYTES. 
023722 104402 ta TRAP  C$BSUB 


023724 LET R2 := #BFSE10 zADR OF CMD SEQ. 
012702 024704 MOV #BFSE10, 
004737 024154 JSR PC, aot :SET_UP CMD SEQ. 
004737 006760 JSR PC,EXA SWRITE/VERIFY RECORDS 1 AND 2. 
let SWBFLG :B= vt SENABLE BYTE SWAPPING. 
112737 000001 003526 MOVB #1, SWBFL 
004737 006760 JSR PC,EXALL sWRITE/VERIFY RECORDS 3 AND 4. 
let SWBFLG :B= #0 ;DISABLE BYTE SWAPPING. 
105037 003526 CLRB SWBFLG 
ENDSUB 
L10032: 
023756 104403 TRAP CSESUB 


023760 LET R2 := DATAWT + #10. INIT WRITE BUFFER POINTER. 
013702 003416 MOV DATAWT.R 
062702 000012 ADD #10. ,R2 
WHILE R2 NE DATAWT DO ;UNTIL 10 BYTES HAVE eas gt 
020237 003416 CMP R2,DATAW 
001402 BEQ 50451$ 
000342 eden -(R2) :SWAP DATA BYTES IN WRITE BUFFER. 


000773 BR 50450$ 


50451$: 
LET T1ISWB :B= T1SWB + #1 SET T1 SWAP BYTES FLAG i. *“*CKDATA®’ SUB 
105237 003531 INC T1SWB 


BGNSUB ;SUBTEST 12 - READ SWAPPED DATA BYTES. 
104402 ae TRAP  C$BSUB 


LET CMDWRD := #RDR CMD IS READ REV. 
012737 104401 003430 MOV #RDR, CMD 
004737 015504 JSR PC, VFEXC VERIFY ODD LENGTH SWAP (RECORD 4). 
LET CMDPKT+CP.CNT := #1 [CHANGE BYTE COUNT TO 10. 
012737 000012 002322 MOV #12,CMDP 
004737 015504 JSR PC ,VFEXC VERIFY EVEN LENGTH SWAP (RECORD 3). 
LET SWBFLG :B= #1 ZENABLE BYTE SWAPPING. 
ee LET CMDPKT+CP.CNT sCHANGE BYTE COUNT 70 9. — 
012737 000011 002322 MOV #11,CMDP 
004737 015504 JSR PC, VFEXC sVERIFY ODD LENGTH SWAP (RECORD 2). 
LET CMDPKT+CP.CNT : CHANGE BYTE COUNT TO 10. 
012737 000012 002322 MOV #12, CMDP 
004737 015504 JSR PC ,VFEXC 7 VERIFY yi LENGTH SWAP (RECORD 1). 
LET CMDWRD := A#RDF 3CMD IS READ FWD. 
012737 104001 003430 MOV #RDF .CMD 
004737 015504 JSR PC ,VFEXC VERIFY EVEN LENGTH SWAP (RECORD 1). 
0241 LET CMDPKT+CP.CNT : sCHANGE BYTE COUNT TO 9. 
024100 012737 000011 002322 MOV #11,CMDP 





N11 
HARDWARE TESTS MACY11_30(1046) leva“ Af 44 PAGE 73-4 
CZTUVB.P11 12=JUL-83 09:26 1: BASIC FUNCTIONS. SEQ 0143 


004737 015504 JSR PC ,VFEXC ;VERIFY ODD LENGTH SWAP (RECORD 2). 
eT SWBFLG :B= #0 [DISABLE BYTE SWAPPING. 
105037 003526 CLRB SWBFLG 
LET CMCPKT+CP.CNT : ;CHANGE BYTE COUNT TO 10. 
012737 000012 002322 MOV #12,CMDP 
004737 015504 JSR PC ,.VFEXC ;VERIFY EVEN LENGTH SWAP (RECORD 3). 
LET CMDPKT+CP.CNT : ZCHANGE BYTE COUNT TO 9. 
012737 000011 002322 MOV #11,CMDP 
004737 015504 JSR PC, VFEXC ;VERIFY ODD LENGTH SWAP (RECORD 4). 


024142 ENDSUB 
024142 L10033: 
024142 104403 TRAP CSESUB 


024144 LET TISWB :B= #0 CLEAR T1 SWAP BYTES FLAG 
024144 105037 003531 CLRB T1SWB 


024150 EXIT TST ‘ 
024150 104432 CSEXIT 
024152 000554 -WO L10017-. 
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or ta TO MOVE A a SEQUENCE TO THE SEQUENCE TABLE. 
INPUTS: R2 = FWA OF COMMAND SEQUENCE. 


OUT PUT S: 
REGISTERS: 
CALLS: 


024154 : LET R1 := #CMDSEQ INIT SEQ TABLE ADDRESS. 
012701 003544 MOV #CMDSEQ, 
WHILE (R2) NE #END DO WHILE THERE ee 
021227 177777 CMP (R2) ,#EN 
001402 


BEQ 50453$ 
LET (R1)# := (R2)+ :MOVE COMMANDS TO SEQ TABLE. 
012221 MOV (R2)+,(R 
ENDDO 
000773 BR 50452$ 
50453$: 
LET (R1) := #END sSTORE END OF SEQUENCE CODE. 


012711 177777 MOV #END, (R1 
000207 RTS PC ;RETURN. 


: BASIC FUNCTION COMMAND SEQUENCE 
BFSEQO: .WORD sca sSET CHAR. 200. 


sDRIVE INIT. 
3SET CHAR. 20 
GET STATUS. 
SET CHAR. 40. 


024250 177777 


024252 102010 BF SEQ1: REWIND TWICE. 
000001 
000002 
000000 

024262 177777 

rere 104105 BFSEQ2: TV sWRITE/VERIFY PAT 1. 


004000 
024270 000001 
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024272 000001 1 
WIV 
— 


WTV 
DATCNT 
1 

WTV 
—_— 
4 

WIV 
DATCNT 
1 

WIV 
DATCNT 
1 

WIV 
— 


00 
024354 - WORD 
024356 BFSEQ3: 
024360 1 


024426 177777 
024430 105410 BFSEQ4: 
000002 


024444 000001 


SEQ 0145 


sWTV PAT 2. 


WIV PAT 3. 


sWTV PAT 4. 


sWTV PAT 5. 


zWTV PAT 6. 


zWTV PAT O. 


sWRITE TAPE MARK. 


sWRITE 10 RECORDS. 


sERASE 10 TIMES. 


WRITE TAPE MARK. 


sWT™M RETRY 


3SPACE 2 FILES REV. 


sSPACE 2 FILES FwD. 
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UVB.P11 
024446 


0244 
024470 
024472 


024542 
024544 


024574 
024576 
0246 


024616 


000000 
177777 
102010 
000001 


000000 
177777 
102010 
000001 
000001 
000000 
104005 
004000 
000001 
000001 
105005 
004000 
000001 
000001 
177777 


000001 
125401 


ee A 44 PAGE 74-2 
1: BASIC FUNCTIONS. 


BFSEQ5: 


BF SEQ6: 


BF SEQ7: 


- WORD 


«WORD 


D 12 


mMon—VvoOnN—Mo 
P *] zD cea nn ~" 
Po) ~” oo 9° ™ zz 


x 
nn 


R 
1 
1 
0 
$s 
7 
1 
0 
$s 
7 
1 
0 
Ss 
1 
7 
0 
Ss 
1 
7 
0 
E 


-9f£0--2 
) =£&z 
coal o 9 


SEQ 0146 


sSPACE 2 FILES REV. 


sSPACE 2 FILES FwD. 


sREWIND. 


SPACE 7 RECORDS FWD. 


sSPACE 7 RECORDS REV. 


sSPACE 7 RECORDS FWD. 


sSPACE 7 RECORDS REV. 


sREWIND. 


sWRITE. 


WRITE RETRY. 


sREAD REV. 


sREAD NEXT REV. 


sREAD NEXT FWD. 





E 12 
HARDWARE TESTS, MACY1130(1046) 12-JUL~B3__09:44, PAGE, 7423 HA 
CZTUVB.P11— 12=JUL=83 09:26 1: BASIC FUNCTIONS. SEQ 0147 C2 
024620 DATCNT 
024622 
.WORD END 
BF SEQ8: ROF READ FWD. 
DATCNT 


sREAD PREVIOUS FWD. 


RPF 
— 


sREAD PREVIOUS REV. 


BFSEQ9: 7 CLEAN. 


;REWIND 


sEND OF SEQUENCE. 
BFSE10: ;WRITE/VERIFY EVEN LENGTH. 


sWRITE/VERIFY ODD LENGTH. 


mo-—£o—-- 
2 ~ 


z 
o 


024724 - WORD 
~EVEN 
024726 ENDTST 


024726 L10017: 
024726 
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024730 
02473C 
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112737 
105037 
012702 
005302 
010237 
005137 


105737 
001404 
004737 
105037 


012721 
072721 
012702 
005102 
010221 
012721 


020127 
002012 


063737 
013702 
042702 
004772 
000763 


012711 
004737 


000001 003523 


003522 


006740 
003536 


104105 
004000 
177740 


000007 


003634 


003442 


003444 
177741 
025210 


177777 
006760 


lee 1°: 44 PAGE 75 
T 2: DATA RELIABILITY. 


003444 


-SBITL TEST 2: DATA RELIABILITY. 


bh a 
; TEST TO CHECK THE DATA RELIABILITY OF 


T2:: 


BGNTST 


F 12 


LET RANDOM :B= #1 
LET EXPBOT :B= 40 


LET R2 := 


LET LENMSK := 


JSR 
IFB 


PC,SETCH 
STAFLG NE #0 THEN 


#DATCNT = #1 


COMP R2 


PC,SETRW 
vet STAFLG :B= #0 


ENDIF 

LET (R1)+ 
LET (R1)+ 
LET R2 := 


LET (R1)+ 
LET (R1)+ 
REPEAT 


WHILE 1 


LET RANS := 
LET R2 := 


:= AWTV 
:= #DATCNT 
COMP #RNOPSC 


:= R2 
:= MRANP 


LT #SEQEND DO 


JSR PC,@RANCMD(R2) 
ENDDO 


LET (R1) := 


#END 


JSR PC, EXALL 


RANS + RANB 
RANS CLR.BY #177741 ;R2 


THE TU80. 


3SET THE RANDOM OPERATIONS FLAG. 
sCLEAR EXPECT BOT FLAG. 
3SET UP THE RECORD LENGTH MASK, 
MOV 
sALLOW MAXIMUM BUFFER. 
COM 
CMD 1 = SET ners 
z1F STARTING THEN: 
TSTB 
BEQ 
3 CMD2=REWIND 


CLR START FLAG. 
CLRB 


504548: 
3CMD3 = WRITE/ VERIFY. 


MOV 
3SET BRF TO MAX FOR PATTERN GENERATION. 
MOV #DAT 


MOV 

COM 
331 OPERATIONS. 

MOV 
RANDOM PATTERN. 

MOV 


;REPEAT TO EOT: 


0455$: 
sFILL SEQ TBL WITH RANDOM CMDS. 
50456$: 
BGE 


ADD 
= RANDOM # (0 = 36). 
MOV 


BIC 
;SET UP A RANDOM CMD + BRF. 


BR 
50457$: 
sSTORE END OF SEQUENCE CODE IN T 


V 
3GO EXECUTE ALL CMDS IN SEQUENCE 





SEQ 0148 


#1,RANDO 
EXPBOT 
#DATCNT, 
R2 


R2,LENMS 
LENMSK 


STAFLG 
50454$ 


STAFLG 


V,(R1 
CNT, 


#RNOPSC, 
R2 


R2,(R1)+ 
#RANP,, (R 


R1, #SEQE 
50457$ 
RANB, RAN 
RANS R2 
#177741, 
50456$ 
me so 


#END, (RI 
TABLE. 
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LET R1 := #CMDSEQ 


SEQ 0149 
sINIT CMD SEQ TBL ante ™ 


012701 


005702 
001753 


105237 
000240 


012737 
005137 


013737 


012711 
004737 


105037 
112737 


012701 
004737 


012711 
004737 


104432 
000174 


003544 


003532 
027072 


025250 


177740 
003550 


003550 
177777 
006760 
003532 


000001 


003544 
006740 


177777 
006760 


003550 


003560 


003525 


UNTIL R2 NE #0 


LET ALLEOT :B= ALLEOT + #1 


NOP 
NOP 


NOP 
JSR PC, TSWEOT 


JSR PC,RANR 
LET CMDSEQ+4 := 
LET CMDSEQ+14 := 


LET (R1) := #END 


JSR PC,EXALL 
LET ALLEOT :B= 40 


LET RPTFLG :B= #1 
LET R1 := #CMbSEQ 


SR PC, SETRW 
(Ri) := #END 


JSR PC,EXALL 
EXIT TST 


D 
COMP #RNOPSC 


MOV 
sEXECUTE REWIND CMD ON ALL UNITS 


#CMDSEQ, 
;REPEAT UNTIL EOT IS REACHED 


R2 
50455$ 
INCB ALLEOT 


3FLAG ALL UNITS @ EOT 


s WRITE ONE RECORD BEYOND EOT ON ALL UNIT 


; AD IN CLEAN IRG GAP 
zREAD REV THAT sig hes REC TO RE-POSITION 
FWD CMDS, 


7SET UP READ REV/ 
:# OF RECORDS FOR READ REV. 
MOV #RNOPSC, 


COM CMOSEQ+4 
3# OF RECORDS FOR READ — 
CMDSEQ+4 


sSTORE END OF SEQUENSE CODE IN SEQ as 


# ( 
GO EXECUTE READ pp ty: OF LAST N RECOR 
;CLEAR ALL UNITS @ EOT FLAG 


i LRB ALLEOT 
REQUEST PERFORMANCE REPORT DURING REWIN 
MOVB #1, RPTFL 


#CMDSEQ, 


z INIT SEQ TBL POINTER, 


sSTORE REWIND IN SEQ TBL, 
STORE END IN SEQ TBL, 
#END, (R1 


TRAP CSEXIT 
-WORD 110034-. 





H 12 
Tee peers, MACY11_30(1046) lea“ 13! 44 PAGE 76 


ZTUVB.P11 12-JUL-83 09:26 T 2: DATA RELIABILITY. SEQ 0150 
4964 3 ADDRESSES OF SUBROUTINES USED TO SET UP RANDOM OPERATIONS IN 
anak 2 THE DATA RELIABILITY TEST. 
4967 02219 023336 RANCMD: RANWV sWRITE/VERIFY. 
4968 025212 025524 RANWR sWRITE. 
4969 025214 025324 RANWR sWRITE. 
4970 025216 025324 RANWGR [WRIT E. 
4971 025220 025324 RANWR WRI TE. 
4972 025222 025324 RANWR ‘WRI ITE. 
4973 025224 025324 RANWR sWRITE. 
4974 025226 025324 RANWR sWRITE. 
4975 025230 025250 RANRD READ. 
4976 025232 025250 RANRD : ;READ. 
4977 025234 025250 RANRD READ. 
4978 025236 025250 RANRD READ. 
4979 025240 025250 RANRD READ. 
4980 025242 025250 RANRD READ. 
4981 025244 025250 RANRD READ. 
4982 025246 025250 RANRD sREAD. 
4983 
4984 
4985 
re 
4988 5 SUBROUTINE TO SET UP READ COMMANDS IN SEQUENCE TABLE. 
4989 3 INPUTS: 
4990 g OUTPUTS: 
4991 5 REGISTERS: R2 
rp 3 CALLS: 
4994 025250 RANRD: LET (R1)+* := #RDR sSTORE READ REV CMD. 
(4) 025250 012721 104401 MOV #ROR, (R1 
4995 025254 LET (R1)¢ := #DATCNT ;SEl BREF TO MAX FOR READ RANDOM LENGTH Ss. 
(4) 025254 012721 004000 MOV #DATCNT, 
4996 025260 LET RANB := RANB + RANS 
(6) 025260 063737 003444 003442 ADD RANS .RAN 
4997 025266 LET R2 := RANB CLR.BY #RNOPSC 
(4) 025266 013702 003442 MOV RANB,,R2 
(6) 025272 042702 177740 BIC #RNOPSC, 
4998 025276 LET (R1)# := R2 ;SET RANDOM # OF OPERATIONS. 
(4) 025276 010221 MOV R2,(R1)+ 
4999 025300 LET (R1)¢* := #RANP ;RANDOM PATTERN. 
(4) 025300 012721 000007 MOV #RANP , (R 
5000 025304 LET (R1)+ := #RDF sSTORE READ FWD CMD. 
(4) 025304 012721 104001 MOV #ROFE ,(R1 
5001 025310 LET (R1)¢ := #DATCNT ;SET BRF TO MAX TO READ RANDOM LENGTHS. 
(4) 025310 012721 004000 MOV #DATCNT, 
5002 025314 LET (R1)* := R2 7SET RANDOM # OF OPERATIONS. 
(4) 025314 010221 MOV R2,(R1)+ 
5003 025316 LET (R1)* := MRANP ;RANDOM PATTERN. 
(4) 025316 012721 000007 MOV #RANP, (R 
5004 025322 000207 RTS PC 





I 12 
HARDWARE TESTS MACY11 30(1046) lew 173! 44 PAGE 77 ps 
CZTUVB.P11 12-JUL-83 09:26 T 2: DATA RELIABILITY. SEQ 0151 Cz 


ot: a TO SET UP A WRITE COMMAND IN THE SEQUENCE TABLE. 


OUTPUTS: 
REGISTERS: 
CALLS: 


025324 : LET (R1)+ := #WRT sSTORE WRITE CMD. 

025324 012721 MOV #WRT, (RI 
004737 JSR PC,RANW ;STORE BRF, # OF OPERATIONS, PATTERN. 
000207 RTS PC 


SUBROUTINE TO SET UP A WRITE/VERIFY COMMAND IN THE SEQUENCE TABLE. 
OUTPUTS: 

REGISTERS: 

CALLS: 


: LET (R1)+ := #WTV STORE WRITE/VERIFY CMD. 
012721 MOV V,¢R1 
004737 : JSR PC,RANW STORE BRF, # OF OPERATIONS, PATTERN. 
900207 RTS PC 


SUBROUTINE TO STORE BRF, # OF OPERATIONS, PATTERN IN COMMAND 
Boures” TABLE FOR WRITE AND WRITE/VERIFY COMMANDS. 


OUTPUTS: 
REGISTERS: R2 
CALLS: 
025350 —s-: : LET (R1)* := #DATCNT 3SET BRF TO MAX FOR PATTERN GENERATION. 


025350 - 012721 004000 MOV ATCNT, 
a RANDOM BRF WILL BE GENERATED FOR EACH R 
025354 LET RANB := RANB + RANS 
063737 003444 003442 ADD RANS ,RAN 
LET R2 := RANG CLR.BY #RNOPSC 
013702 003442 MOV pa R2 


042702 177740 BIC 
LET (R1)* := R2 3SET RANDOM # OF OPERATIONS. 

010221 MOV R2,(R1)+ 
LET (R1)* : RANDOM PATTERN. 

012721 000007 MOV #RANP , (R 

000207 RTS PC ;RETURN. 


-EVEN 
025402 ENDTST 
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(3) 025402 L10034: 
meth 025402 104401 TRAP CSETST 
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025474 
025500 


025504 
025504 
025504 
025512 


025514 


105737 
001013 


012746 
012746 
010600 
104417 
062706 


112737 


105037 
105037 
105037 


105037 


012711 
004737 


004737 


026527 
001546 


003341 
021112 
000001 


000004 
000377 


003340 
003523 
003522 
006714 
006740 
003536 


177777 
006760 


016614 


002536 177777 


T 3: 


K 12 


ea“ 12: 44 PAGE 77-2 


WRITE AND READ STREAMING TEST. SEQ 0153 
-SBITL TEST 3: WRITE AND READ STREAMING TEST. 


Se Se Ge Se Ge Se Ge Fe Ge 
+ 
+ 


~ 
w 


THIS TEST STREAM WRITES 7000 RECORDS OF 1000 BYTES el 

REVERSE 7000 RECORDS, =D 
BY RE 0 THIS PARTICULAR SEQUENCE IS 
PERFORMED TWICE ON EAC IT UNDER TEST. ALL STREAMING SPEEDS 
ARE TESTED FOR BOTH READ AND WRITE OPERATIONS. 


BGNTST 
IFB HERE EQ #0 THEN 
HERE 
50460$ 
PRINTF #TAPCAP 
#TAPCAP, 


LET HERE :B= #255. 
ENDIF 


#255. ,HE 
50460$: 
LET DOAGIN :B= sFIRST OF TWO ITERATONS 
B _DOAGIN 
LET RANDOM :B= :CLEAR THE RANDOM OPERATIONS FLAG. 
LET EXPBOT :B= SCLEAR THE EXPECT BOT FLAG. 
CLRB —« EXPBOT 
JSR PC, SETCH SET CHARACTERISTICS, 
JSR PC. SETRW SET REWIND COMMAND IN BUFFER. 
lel STAFLG :B= #0 [CLEAR THE START F CAG 
CLRB ss STAFLG 
LET (R1) := #END ;PLACE END FLAG IN SEQUENCE TABLE. 
MOV #END, (RI 
JSR PC, EXALL ;REWIND ALL UNITS. 
JSR PC, FIRSTU ;FIND THE FIRST UNIT TO TEST (UUT) 
3 RERAREEEAEAEAEAAEEAEEEEAAEEAEEEEEEEEREREEREEEEEAEAERAEEERERAREEE 
sWRITE AND READ EACH UNIT IN TURN BEFORE GOING ON TO THE NEXT. 
g REREEAEAEEEAAAAEEEEEAAEEKEREAAEEREEEAEEAEEEAEEAEEAEEEEREREEEEE 
WHILE DEVTBL(RS) NE #END DO ;WHILE THERE ARE MORE DEVICES: 
” CMP DEVTBL(R 
BEQ 50462$ 


LET BTPT := BTADDR(RS) CLEAR BAD SPOT COUNTER 
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016537 002550 003520 MOV BTADDR(R 
LET aBTPT := 40 START FROM BOT 
005077 155772 CLR aBTPT 
LET STREAM :B= #255. 3SET FLAG = WE'RE GOING TO STREAM 
112737 000377 003533 MOVB #255.,ST 
: LET R1 := #CMDSEQ ;SETUP SEQUENCE TABLE ADDRESS 
012701 003544 MOV #CMDSEa, 
LET (R1)* := MWRT sWRITE COMMAND 
012721 104005 MOV #WRT, (RI 
LET (R1)+ := #1000. 31000-BYTE RECORD LENGTH. 
012721 001750 MOV #1000. ,¢ 
LET (R1)+ := #7000. sWRITE 7000 RECORDS. 
012721 015530 MOV #7000. ,¢ 
LET (R1)+ := #5 ;GENERATE AND WRITE PATTERN 5. 
012721 000005 MOV #5,(R1)+ 
LET (R1) := #END 3SET END OF SEQUENCE TABLE. 
012711 177777 MOV #END, (R1 


LET R1 := #CMDSEQ 3SEQ. TABLE ADDRESS FOR SUBR. ‘SETUP’. 
012701 003544 MOV #CMDSEQ, 
025570 004737 007722 JSR PC, SETUP SETUP THE COMMAND TABLE 


025574 WHILE NCNT LT NCNT1 DO WHILE MORE acca +O ~ rua BE WRITTEN: 


023737 003422 003424 "CMP NCNT,.NCN 
002022 BGE 50464$ 


907614 JSR PC, CMDAC : SAVE ASCII ¢ COMMAND FOR ERROR MESSAGE 
010576 JSR PC, EXCUTE SSUE C TO UN 
011166 JSR PC. GOWAIT ‘dS WAIT OFOR. DONE TO SET 

IF DEVTBL(R5) EQ #NINUSE THEN 


026527 002536 177774 cMP DEVTBL(R 

001005 BNE 50465$ 
LET NCNT := NCNT1 = #1 

013737 003424 003422 MOV NCNT1 NC 

005337 003422 en i DEC NCNT 


50465$: 
LET NCNT := NCNT + #1 zUPDATE THE RECORD COUNT 
005237 003422 INC NCNT 
ENDDO sEND OF RECORD *DO" LOOP 
000752 BR 50463$ 


50464$: 
IF DEVTBL(RS) NE #NINUSE THEN ;IF DRIVE DROPPED EXIT 
026527 002536 177774 CMP DEVTBL(R 
001453 BEQ 50466$ 
004737 017312 JSR PC, WRITEM WRITE A_TAPE MARK NOW 
LET ERSFLG :B= 40 ;DON'T ERASE AFTER BACKSPACE 
105037 003534 CLRB ERSFLG 
004737 014374 JSR PC, BORERS sBACKSPACE OVER THE TAPE MARK 
LET R1 := #CMDSEQ RELOAD THE COMMAND TABLE 
012701 003544 MOV #CMDSEQ, 
LET (R1)* := MWRT s;NOT REALLY NECESSARY FOR WHAT FO! LOWS 
012721 104005 MOV HURT, CRI 
0257! LET (R1)+ := #1000. 31000-BYTE RECORD LENGTH 
025704 012721 001750 MOV #1000. ,¢ 
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025710 


026022 


026026 
026026 
026030 


026030 
026030 


026034 
026034 
026036 


MACY11_30(1046) 
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012721 
012721 
012711 
ser 
112737 


010537 
004737 


013705 
026527 
1410 


005037 
105037 
105037 
004737 


000626 
105037 


104432 
000002 


104401 


015530 
000005 
177777 


003544 
007722 


000001 003524 


003462 
015370 


003462 
002536 
003340 


177774 


003422 
017312 


003422 
003524 


003522 
016662 


003533 


M12 


lev“ 7°: 44 PAGE 77-4 


T 3: WRITE AND READ STREAMING TEST. 


L10035: 


LET (R1)+ := #7000. 
LET (R1)+ := #5 
LET (R1) := #END 
LET R1 := #CMDSEQ 


JSR PC, SETUP 
LET VFYFLG :B= #1 


LET RSSAVE := R5 


JSR PC, VFYDAT 
LET R5 := RSSAVE 


IF DEVTBL(RS) NE #NINUSE THEN 


Se DOAGIN 
LET NCNT := 40 
JSR PC, WRITEM 
ENDIF 

ENDIF 

LET NCNT := #0 
LET VFYFLG :B= 
LET EXPBOT :B= 
JSR PC, NEXTU 
ENDDO 


LET STREAM :B= 


EXIT TST 


-EVEN 
ENDTST 


3FOR 7000 ITERATIONS 
zDATA PATTERN NUMBER 5 
;TABLE TERMINATOR 


:TOP OF THE TABLE AGAIN 


3SET UP_THE COMMAND TABL 


ZALLOW THE DATA VERIFY 


sSAVE R5 


MOV 
ie ston By CHECK REV AND FWD. 


:IF DRIVE DROPPED EXIT 


504 
CLEAR RECORD COUNT 


2 00F ERO. DOM 
[KEEP CONTROL HERE 


50467$: 
66$: 


CLEAR VERIFY FLAG 

CLEAR EXPECT BOT FLAG. 
3GET NEXT UNIT TO TEST (un. 
zEND OF UUT LOOP 


CLEAR STREAMING FLAG FOR OTHER 
CLRB 


BEQ 


L 
WRITE ANOTHER TAPE MARK 
AND LOOP 


CLR 


BR 
50462$: 


sEXIT TEST 


zJUST IN CASE. 


TRAP 
- WORD 


SEQ 0155 


#7000. ,¢ 
#5, (R1)+ 
#END, (R1 
#CMDSEQ, 


#1, VFYFL 
RS,RSSAV 


RSSAVE .R 
DEVTBL(R 
50467$ 


NCNT 
VFYFLG 
EXPBOT 


50461$ 


TESTS. 
STREAM 


CSEXIT 
L10035-. 


CSETST 
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CZTUVB.P11. - 12=JUL-83 09:26 T 3: WRITE AND READ STREAMING TEST. SEQ 0156 
5152 
3133 .SBTTL TEST 4: WRITE COMPATABILITY/WRITE UTILITY. 
5155 i++ 
3136 : TEST TO WRITE RECORDS FROM BOT TO EOT. 
5158 
5159 026042 BGNTST 
5{3) 026042 T4:: 
5161 026042 LET RANDOM :B= #1 ;SET THE RANDOM OPERATIONS FLAG. 
(4) 026042 112737 000001 003523 MOVB. #1,RANDO 
5162 026050 LET EXPBOT :B= #0 :CLEAR EXPECT BOT FLAG. 
(4) 026050 105037 003522 CLRB  =—« EXPBOT 
5163 026054 LET R2 := #DATCNT - #1 ;SET UP THE RECORD LENGTH MASK. 
(4) 026054 012702 004000 MOV #DATCNT, 
(6) 026060 005302 R2 
5164 026062 LET LENMSK := COMP R2 yALLOW MAXIMUM BUFFER. 
(6) 026062 010237 003440 MOV R2,LENMS 
(6) 026066 005137 003440 COM LENMSK 
5165 026072 004737 006714 JSR PC,SETCH sCMD 1 = rd CHARACTERISTIC. 
5166 026076 004737 006740 JSR PC, SETRW = CMD2=REWIN 
5167 026102 LET STAFLG :B= #0 = CLEAR START FLAG 
(4) 026102 105037 003536 CLRB = STAFLG 
5168 026106 REPEAT :REPEAT TO EOT. 
(3) 026106 0S: 
5169 026106 WHILE R1 LT #SEQEND DO :WHILE THERE IS MORE ROOM IN SEQ TABLE: 
(4) 026106 50471$: 
(6) 026106 020127 003634 CMP R1,#SEQE 
(9) 026112 002003 BGE 50472$ 
5170 026114 004737 025324 JSR PC,RANWR zSTORE A WRITE CMD IN SEQUENCE TABLE. 
5171 026120 ENDDO 
(4) 026120 000772 BR 50471$ 
(3) 026122 50472$: 
5172 026122 LET (R1) := #END :STORE END OF SEQUENCE CODE IN TABLE. 
(4) 026122 012711 177777 MOV #END, (R1 
5173 026125 004737 006760 JSR PC, EXALL sEXECUTE ALL CMDS IN SEQ TBL ON UNITS. 
5174 026132 LET R1 := #CMDSEQ SINIT SEQ TBL POINTER, 
(4) 026132 012701 003544 MOV #CMDSEQ, 
5175 026136 UNTIL R2 NE #0 ;REPEAT UNTIL EOT IS REACHED 
(3) 026136 005702 TST R2 
(6) 026140 001762 BEQ 50470$ 
5176 026142 LET ALLEOT :B= ALLEOT + #1 sSET ALL UNITS @ EOT FLAG 
(6) 626142 105237 003532 INCB = ALLEOT 
5177 026146 000240 NOP 
5178 026150 000240 NOP 
5179 026152 000240 NOP 
5180 026154 004737 027072 JSR PC, TSWEOT ;WRITE ONE RECORD BEYOND EOT ON ALL UNIT 
5181 *SO THAT SHORTER READ STOP DISTANCE 
5182 SSHALL POSITION HEAD IN CLEAN IRG 
5183 *READ REV THAT EXTRA REC TO REPOSITION 
5184 026160 LET ALLEOT :B= #0 [CLEAR ALL UNITS @ EOT FLA 
(4) 026160 105037 003532 CLRB = ALLEOT 
5185 026164 004737 006740 JSR PC, SETRW :STORE REWIND IN SEQ TBL, 
5186 026170 T (Ri) := #END sSTORE END IN SEQ TBL, 
(4) 026170 012711 177777 MOV. #END, (RI 
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026174 004737 006760 


026200 
026200 104432 
026202 000002 


026204 
026204 
026204 104401 


8 13 
12-JUL-83 09:44 PAGE 77-6 
TEST 4: WRITE COMPATABILITY/WRITE UTILITY. 


JSR PC,EXALL 
EXIT TST 


~EVEN 


ENDTST 
L10036: 


sEXECUTE REWIND CMD ON ALL UNITS 


TRAP 


SEQ 0157 


CSETST 
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-SBTTL TEST 5: READ COMPATABILITY/READ UTILITY. 


p++ 
; TEST TO READ ENTIRE TAPE FORWARD AND REVERSE. 


wWN— 


BGNTST 
TSss 


oa 


RANDOM :B= #1 3SET THE RANDOM OPERATIONS FLAG. 

112737 000001 003523 MOVB #1,RANDO 
EXPBOT :B= #1 SET EXPECT BOT FLAG. 

112737 000001 003522 MOVB #1,EXPBO 

004737 006714 PC,SETCH 3CMD_1 = SET CHARACTERISTIC. 

004737 006740 PC, SETRW :CMD2=REW IN 
STAFLG :B= #0 SCLEAR START FLAG 

105037 003536 CLRB STAFLG 
(R1)+ := #RDF 3CMD3 = READ FORWARD. 

012721 104001 MOV #RDF ,(R1 
(R1)+ := #DATCNT 3SET LENGTH TO MAX FOR UNKNOWN LENGTHS. 

012721 004000 MOV #DATCNT, 
(R1)+ := #77777 SET RECORD COUNT TO MAX FOR WHOLE TAPE. 

012721 077777 MOV #77777 ,,¢ 
(R1)+ := #RANP 3PATTERN = RANDOM. 

012721 000007 MOV #RANP, CR 
(R1) := END sSTORE END OF SEQUENCE CODE IN TABLE. 

012711 177777 MOV #END, (R1 

004737 006760 PC,,EXALL sEXECUTE ALL CMDS IN SEQ TBL_ON ALL UNIT 
ALLEOT :B= ALLEOT + #1 sFLAG TO ALLOW ALL UNITS AT EOT TO READ 

105237 003532 INCB ALLEOT 
R1 := #CMDSEQ zINIT CMD SEQ TBL POINTER. 

012701 003544 MOV #CMDSEQ, 
(R1)+ := #RDR 3CMD1 = READ REVERSE. 

012721 104401 MOV #RDR, (R1 
(R1)* := #DATCNT SET LENGTH TO MAX FOR UNKNOWN LENGTHS. 

012721 004000 MOV #DATCNT, 
(R1)+ := #77777 RECORD COUNT = MAX FOR WHOLE TAPE. 

012721 077777 MOV #77777,.¢ 
(R1)+ := #RANP ;PATTERN = RANDOM. 

012721 000007 MOV #RANP (CR 

(R1) := MEND sSTORE END OF SEQUENCE CODE IN TABLE. 

012711 177777 


#END, 
004737 006760 JSR PC ,,EXALL 3GO EXECUTE READ REV. * ENTIRE TAPE. 
LET ALLEOT :B= 40 ;CLEAR ALL UNITS @ EOT FLAG 
026326 105037 003532 CLRB ALLEOT 


026332 EXIT TST 
026332 104432 TRAP CSEXIT 
026334 000002 «WORD 110037-. 


- EVEN 
026336 ENDTST 


026336 L10037: 
026336 104401 TRAP CSETST 


olS& 


ww Pewee ew 











D 13 


HARDWARE TESTS MACY11_ 30(1046) 12-JUL~83 . 09:44 PAGE 77-8 
CZTUVB.P11_-12=JUL=83 09:26 1 5: READ COMPATABILITY/READ UTILITY. SEQ 0159 
5232 
3233 .SBTTL TEST 6: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 
5235 i++ 
2256 : TEST TO EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 
5238 
5239 026340 BGNTST 
52) 026340 T6:: 
5241 026340 LET RANDOM :B= #0 ;CLEAR RAMDOM MODE FLAG. 
(4) 026340 105037 003523 CLRB RANDOM 
5242 026344 LET EXPBOT :B= #1 :SET EXPECT BOT FLAG. 
(4) 026344 112737 000001 003522 MOVB «#1, EXPBO 
5243 026352 LET IRE :B= PIRE :MOVE INHIBIT RFC ERROR REPORT FLAG. 
(4) 026352 113737 002213 003527 MOVB PIRE, IRE 
5244 026360 004737 006714 JSR PC,SETCH :C(MD 1 = SET CHARACTERISTIC. 
5245 026364 LET CMDSEQ+2 := CHAR ‘MOVE CHAR CODE FROM P TBL TO SEQ TBL. 
(4) 026364 013737 002220 003546 ? MOV CHAR, C 
5246 026372 LET R2 := #CMDD :R2 POINTS TO CMD2 IN SOFT P TABLE. 
(4) 026372 012702 002222 MOV #CMDD RZ 
5247 026376 004737 027050 JSR PC,PTCMDS sMOVE CMD 2 FROM P TBL TO SEQ TBL. 
5248 026402 004737 027050 JSR PC.PTCMDS [MOVE CMD 3 FROM P TBL TO SEQ TBL. 
5249 004737 027050 JSR PC.PTCMDS [MOVE CMD 4 FROM P TBL TO SEQ TBL. 
5250 026412 004737 027050 JSR PC.PTCMDS [MOVE CMD 5 FROM P TEL TO SEQ TBL B 
5251 026416 004737 027050 JSR PC.PTCMDS [MOVE CMD 6 FROM P TBL TO SEQ TBL. B 
5252 026422 004737 027050 JSR PC.PTCMDS [MOVE CMD 7 FROM P TBL TO SEQ TBL. B 
5253 026426 004737 027050 JSR PC.PTCMDS [MOVE END CMD FROM P TBL TO SEQ TBL. B 
5254 026432 LET JLOOP := #0 [CLEAR JMP CMD LOOP COUNT. B 
(4) 026432 005037 003452 CLR JLOOP B 
5255 026436 LET STAFLG :B= #0 ZCLEAR START FLAG B 
(4) 026436 105037 003536 CLRB = STAFLG B 
5256 026442 LET R1 := #CMDSEOQ zINIT SEQUENCE TABLE POINTER. B 
53) 026442 012701 003544 MOV #CMDSEQ, 8 
5258 000000 SBRIMP=0 sENABLE JMP SUBSTITUTION FOR BR, IF NECESSARY. 3 
260 026446 3S: WHILE (R1) NE #END DO ;WHILE THERE ARE CMDS LEFT IN SEQUENCE T B 
(4) 026446 50473$: B 
(6) 026446 021127 177777 CMP (R1) WEN B 
(9) 026452 001574 BEQ 50474$ B 
5261 026454 022711 000040 CMP #JMP.C, (R1) :1S THIS A JUMP CMD? B 
5262 026460 001024 BNE ‘BR IF NOT. B 
5263 026462 LET R1 := RI + #2 [POINT TO BRF. B 
(6) 026462 062701 000002 ADD #2,R1 B 
5264 026466 012137 003454 MOV (R1)+#, JLOC sSAVE BRF (LOCATION). 8 
5265 026472 022137 003452 CMP (R1)+,JLOOP *HAS LOOP COUNT BE SATISFIED? F 
5266 026476 001003 BNE 1$ [IF NOT, JMP AGAIN. B 
5267 026500 LET RI := R1 + #2 IF SO, * adjust SEQ POUNTER 8 
(6) 026500 062701 000002 ADD #2,R1 8 
5268 026504 000760 BR sé3$ AND GO TO NEXT COMMAND. 8 
5269 026506 1$: LET JLOOP := JLOOP + #1 {UPDATE THE LOOP COUNT. 8 
(6) 026506 005237 003452 INC JLOOP 8 
5270 026512 LET R1 := #CMDSEQ sINIT CMD SEQ TABLE POINTER. 8 
(4) 026512 012701 003544 MOV #CMDSEQ, 8 
5271 026516 005337 003454 2s: DEC  JLOC ;DECR LOCATION COUNTER. 8 
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5272 026522 001751 
5273 026524 
(6) 026524 062701 000010 
5274 026530 772 
5275 026532 022711 000020 
5276 026536 001026 
5277 026540 
(6) 026540 062701 00004 
5278 026544 
(4) 026544 011137 003450 
5279 026550 
(2) 026550 012727 000012 
(2) 026554 000000 
(2) 026556 013727 002116 
(2) 026562 000000 
(2) 026564 005367 177772 
(2) 026570 001375 
(2) 026572 005367 177756 
(2) 026576 001367 
5280 026600 005337 003450 
5281 026604 001 
5282 026606 
(6) 026606 062701 000004 
5283 026612 0007 
284 026614 004737 007722 
5285 026620 
(4) 026620 
(6) 026620 023737 003422 
(9) 026626 002103 
5286 026630 004737 007614 
5287 026634 004737 007254 
5288 026640 
(6) 026640 023727 003430 
(9) 026646 00100 
5289 026650 004737 017140 
5290 026654 
(4) 026654 
5291 026654 004737 017222 
5292 026660 
(4) 026660 012702 000001 
5293 026664 004737 016614 
5294 026670 
(4) 026670 
(6) 026670 026527 002536 
(9) 026676 001426 
5295 026700 
(6) 026700 032737 000400 
(9) 026706 001406 
5296 026710 
(6) 026710 032765 000002 
(9) 026716 001001 
5297 026720 
(4) 026720 005002 
5298 026722 
(4) 026722 
5299 026722 
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BEQ =3$ zIf THIS IS THE RIGHT LOCATION TO JMP TO 
LET R1 := R1 + #10 IF NOT, UPDATE SEQ i TO One. i 
BR 2s 300 IT AGAIN. 
6$: CMP = #OLY.C, (R1) DELAY? 
BN 3BR IF NOT. 
LET R1 := R1 + #4 3R1 = LOCATION OF N COUNT. 
ADD #4,R1 
LET TIME2 := (R1) 3SAVE N COUNT. 
MOV (R1), TIM 
7$: DELAY 10. GO TO SUPER-WAIT 1 MSEC. 
MOV #10.,(P 
- WORD 
MOV LSOLY,(P 
- WORD 
DEC -6(PC) 
BNE 274 
DEC -22(PC) 
BNE -720 
DEC TIME2 
BN $ 
LET R1 z= RT + #4 POINT TO NEXT CMD. 
ADD #4,R1 
BR GO CHECK NEXT CMD. 
4$: JSR iO SETUP 


PC,,SETUP 36 THE COMMAND BLOCK. 
WHILE NCNT LT NCNT1 DO WHILE THERE ARE RECORDS REMAINING: 


003424 CMP NCNT,NCN 
BGE 50476$ 
JSR PC, CMDAC sSTORE CMD ASCII IN ERROR MSG. 
JSR PC,EXSUB TISSUE CMD TO ALL AWAIT INTS, CHECK STATU 
IF CMDWRD EQ #GES THEN IF CMD IS GET STATUS THEN: 
100017 CMDWRD .# 
BNE 504778 
nadiz PC,PRXST sPRINT EXTENDED STATUS REGISTERS. 
50477$: 
JSR PC,CKHAE CHECK HALT AFTER EACH CMD FLAG. 
LET R2 := #1 7SET ALL UNITS AT BOT/EOT. 
MOV #1,R2 
JSR PC, FIRS ;FIND FIRST UNIT. 
WHILE SEVIBL (RS) NE #END DO :WHILE THERE ARE MORE UNITS: 
177777 DEVTBL(R 
BEQ 50501$ 
IF #MOD.CO SETIN CMDWRD THEN ;IF CMD IS REVERSE THEN: 
003430 BIT #M0d.c0, 
BEQ 50502$ 
IF #X0.BOT NOTSETIN EOTFLG(RS) THEN ;IF NOT AT ae THEN: 
003510 BIT #Xx0.B0T, 
BNE 50503$ 
LET R2 := #0 CLEAR EOT/BOT FLAG. 
CLR R2 
ENDIF 
50503$: 
ELSE sELSE IF CMD IS NOT REVERSE: 
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026744 
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000411 


954769 
1404 

032737 

001001 


005002 


004737 
000746 
020227 
001016 


013737 
005237 


105237 
023727 
001002 


000402 
105037 
005237 
013737 
000671 
004737 
000601 


177777 


000001 
000001 


016662 


000001 
003422 
003424 
003532 


003436 
027072 


003532 


003422 
003430 


015370 


6) 
6 
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TEST 6: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. SEQ 0161 
BR 50504$ 
50502$: 
IF #X0.EOT NOTSETIN EOTFLG(RS) OR #CMD.CO NOTSETIN —, en 
003510 I 3058 
BEQ £05058 
003430 BIT #CMD.CO, 
50506$ 
50505$: 
z;1F NOT AT EOT OR NOT A MOTION CMD THEN: 
LET R2 := #0 ;CLEAR EOT/BOT FLAG. R2 
ENDIF 
50506$: 
ENDIF 
50504$: 
JSR PC,NEXTU sFIND NEXT UNIT 
ENDDO 3 
BR 50500$ 
50501$: 
IF R2 EQ #1 THEN ;IF ALL UNIT ARE AT SS THEN: So at 
BNE 505078 
LET NCNT1 := NCNT + #1 sFORCE TERMINATION OF COMMAND 
003424 po iF aay 
LET ALLEOT :B= ALLEOT + #1 ;FLAG ALL UNITS AT ee wt 
IF CMDLG EQ #2 THEN sWHEN WRITING IS CURRENT COMMAND 
000002 CMDLG,#2 
ott PC, TSWEOT :GO WRITE/READ REV ONE RECORD BEYOND EOT 
50510$: 
ELSE 
BR 50511$ 
50507$: 
LET ALLEOT :B= #0 ;WHEN NOT ALL @EOT, CLEAR FLAG 
CLRB ALLEOT 
ENDIF 
50511$: 
LET NCNT := NCNT + #1 :UPDATE RECORD COUNT. ue —_ 
LET PCMDWD := CMDWRD sSAVE PREVIOUS COMMAND WORD. 
003434 MOV CMDWRD ,P 
ENDDO 
50475$ 
50476$: 
JSR PC,VFYDAT z1F LAST CMD WAS A WRITE VERIFY, THEN GO 
S VERIFY THE LAST N RECORDS OF DATA. 
ENDDO 
BR 504738 
50474$: 
SBRIJMP=-1 :TURN OFF JMP SUBSTITUTION (SPMACJ CONTROL, ONLY). 
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5326 027044 EXIT TST 
027044 104432 TRAP Coen) 


027046 000130 «WORD 1L10040-. 
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5329 
5330 3 SUBROUTINE TO MOVE A COMMAND “OM THE SOFTWARE P TABLE TO 
$331 : THE COMMAND SEQUENCE TAP! E, mae 
5332 ; INPUTS: R2 = POINTER TO SOFT ‘?P** TABLE 
5333 § OUTPUTS: 
5334 ; REGISTERS: R3. 
o3e2 3 CALLS: 
5337 027050 PTCMDS: LET R3 := (R2)+ = #1 SHIFT +1 3R3 = COMMAND TABLE INDEX. 
(4) 027050 012203 MOV (R2)+,R3 
(6) 027052 005303 DEC R3 
(8) 027054 006303 ASL R3 
5338 027056 LET (R1)+ := CMDTBL(R3) sMOVE COMMAND WORD. 
(4) 027056 016321 003646 MOV CMDTBL(R 
5339 027062 LET (R1)+ := (R2)+ sMOVE # OF BYTES. 
(4) 027062 012221 MOV (R2)+,(R 
5340 027064 LET (R1)# := (R2)+ sMOVE # OF OPERATIONS. 
(4) 027064 012221 MOV (R2)+,(R 
5341 027066 LET (R1)¢* := (R2)+ sMOVE PATTERN CODE. 
(4) 027066 012221 MOV (R2)+,(R 
as 027070 000207 RTS PC 
5344 ; SUBROUTINE TO WRITE THEN READ REVERSE ONE RECORD BEYOND EOT 
5345 $ INPUTS: 
5346 3 OUTPUTS: 
5347 é REGISTERS: 
roy : CALLS: CMDAC ,EXSUB, CKHAE 
5350 027072 000240 TS5WEOT: NOP 
5351 027074 000240 NOP 
5352 027076 004737 007254 JSR PC,EXSUB sWRITE ONE RECORD BEYOND EOT 
5353 027102 004737 017222 JSR PC, CKHAE :S0 THAT READ SHORTER STOP DISTANCE 
5354 + SHALL POSITION HEAD IN CLEAN IRG GAP 
5355 027106 LET PCMDWD := CMDWRD :REPOSITION TAPE 
(4) 027106 013737 003430 003434 MOV CMDWRD ,P 
5356 027114 LET CMDWRD := A#RDR sBEFORE EXTRA RECORD 
(4) 027114 012737 104401 003430 MOV #ROR, CMD 
5357 027122 LET CMDLG := #4 sBY READING REVERSE 
(4) 027122 012737 000004 003436 MOV #4 ,CMDLG 
5358 027130 LET CMDPKT := CMDWRD CLR.BY #BRF.C 
(4) 027130 013737 003430 002314 MOV CMDWRD .C 
(6) 027136 042737 004000 002314 BIC #BRF .C.C 
5359 027144 LET CMDSAV := CMDPKT ; THAT RECORD TO ALLOW 
(4) 027144 013737 002314 003432 MOV CMOPKT.C 
5360 027152 LET CMDPKT+CP.ADL := DATARD sNEXT COMMAND IN THE 
(4) 027152 013737 003420 002316 MOV DATARD,C 
5361 027160 004737 007614 JSR PC, CMDAC sTABLE TO BE EXECUTED 
5362 027164 004737 007254 JSR PC,EXSUB 
5363 027170 004737 017222 JSR PC, CKHAE 
5364 027174 000207 RTS PC 
5365 EVEN 
5366 027176 ENDTST 
(3) 027176 L10040: 
(3) 027176 104401 TRAP CSETST 
5367 027200 ENDMOD 





1_13 
PAT AMETER CODING MACY11 30(1046) ae ae 3 09:44 PAGE 77-13 
CZiUvB.P11 12=-JUL-83 09:26 rest 6 : EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. SEQ 0164 


-TIILE PARAMETER CODING 
«SBTTL HARDWARE PARAMETER CODING SECTION 
BGNMOD 


: 
THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
ISOR TO BUILD P-TABLES. THE 


; MACROS ALLOW 
; WITH THE OPERATOR. 


BGNHRD 
LSHARD:: 
GPRMA TS4ADR,0,0,160002,177564,YES 


-WORD L10041-LSH 


000031 
027226 
160002 IM 
177564 TSHILIM 
GPRMD TS4VCT,2,0,777,60,776,VES 
001032 TSCODE 
027243 TS4VCT 
000777 777 
000060 TSLOLIM 
027222 000776 TSHILIM 
027224 EXIT HRD 
027224 013004 TSCODE 


° T BEX 
027226 051524 051123 040440 TS4ADR: .ASC /TSSR_ADDRESS/ 
027243 126 041505 047524 TS4VCT: .ASCIZ /VECTOR/ 


027252 ENDHRD 
027252 L10041: 
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-SBITL SOFTWARE PARAMETER CODING SECTION 


"THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE U 8 OR TO BUILD P-TABLES THE 
MACROS AR 

INTERPRETED BY THE SUPERVISOR URES. THE 
MACROS ALLOW THE Shc snasscige TO SsTABLISH COMMUNI CATIONS 
WITH THE OPERATOR 


027252 BGNSFT 
027252 -WORD L10042-L$S 
027254 LSSOFT:: 


027254 GPRML CLRM,0,1,YES 
000130 
030024 
000001 


GPRML RRVM,0,400,YES 
000130 
030043 
000400 
001130 
030072 
000001 


001130 
030116 
000400 


GPRML HAEM,2,1,YES 
GPRML RCVERM,2,400,YES 


GPRML =IRECM,4,1, YES 
0021390 
030140 
000001 


004024 


002130 
030161 
000400 


XFERT NEXTSP 
GPRML BADTM,4,400,YES 


mr bt be ee te bt nt bay ns Pat bt Ot me me 
A A aM 2M 2M 6 18 1 68 6M 6 1 OO 


NEXTSP: GPRML DINTM,6,1,YES 
003130 
030206 
000001 


GPRML _IREM,6,400.YES 
003130 
030231 
060400 

GPRML RAMM,10,1,YES 


004130 
030262 
000001 


GPRML CHGM,10,400,YES 
004130 
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030301 
000400 
XFERF ENDSP1 


127044 
GPRMD CHARM,14,0,377,0,777,YES 


TSHILIM 


TSCODE 
CMD2M 


37 
TSLOLIM 
TSHILIM 


TSCODE 
BPCRM 


TSLOLIM 


TSHILIM 
NUMBM,22,D,-1,1,77777, VES 
011052 TSCODE 
30365 NUMBM 


i) 
090001 TéLoLt 
LOLIM 
077777 TSHILIM 
PATTM,24,D,17,0,10, YES 

012052 TSCODE 

03 PATTM 
17 
TSLOLIM 
TSHILIM 


TSCODE 
CMD3M 


CMD2M,16,D,37.1,33,YES 


BPCRM,20,D,-1 o% »DATCNT, YES 


CMD3M,26,D,37,1,33.,YES 


37 
TSLOLIM 
TSHILIM 


BPCRM,30,D,-1,1,DATCNT,YES 
TSCODE 
~ 
TSLOLIM 


T 
NUMBM, 32,D,-1,1,77777.,YES SHILIM 
030365 TSCODE 
AAAS Nt 
077777 Li arg 
PATIM, 34,D,17,0,10, YES 
Sat WORD PARE 
A 
000017 PA 4 
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(4) 027502 000000 «WORD TS$LOLIM 
(4) 027504 000010 eWORD TSHILIM 
5471 02750’ GPRMD CMD4M,36,D,37,1,33.YES 

(4) 027506 017052 ~WORD TSCODE 

(4) 027510 030426 «WORD CMD4M 

(4) 027512 000037 «WORD 37 

(4) 027514 000001 -WORD TSLOLIM 

(4) 027516 000033 eWORD TSHILIM 

(4) 027520 020052 «WORD TS$CODE 

(4) 027522 030353 «WORD BPCRM 

(4) 027524 177777 «WORD -1 

(4) 027526 000001 eWORD TS$LOLIM 

(4) 027530 004000 -WORD TS$HILIM 
5473 027532 GPRMD NUMBM,42,D,-1,1,77777,YES 

(4) 027532 021052 «WORD TSCODE 

(4) 027534 030365 «WORD NUMBM 

(4) 027536 177777 «WORD <1 

(4) 027540 000001 «WORD TSLOLIM 

(4) 027542 077777 eWORD TSHILIM 
5474 027544 GPRMD PATTM,44,D,17,0,10., VES 

(4) 027544 022052 eWORD TSCODE 

(4) 027546 030405 eWORD PATIM 

(4) 027550 000017 eWORD 17 

(4) 027552 000000 «WORD TSLOLIM 

(4) 027554 000010 «WORD TSHILIM 
5475 027556 GPRMD (CMD5M,46,D,37,1,33.YES 

(4) 027556 023052 «WORD TSCODE 

(4) 027560 030434 «WORD CMD5SM 

(4) 027562 000037 «WORD 37 

(4) 027564 000001 «WORD TSLOLIM 

(4) 027566 000033 eWORD TSHILIM 

(4) 027570 024052 eWORD TSCODE 

(4) 027572 030353 eWORD BPCRM 

(4) 027574 177777 eWORD -1 

(4) 027576 000001 eWORD TSLOLIM 

(4) 027600 004000 eWORD TSHILIM 
5477 027602 GPRMD NUMBM,52,D,-1,1,77777,YES 

(4) 027602 025052 eWORD TSCODE 

(4) 027604 030365 -WORD NUMBM 

(4) 027 177777 eWORD -1 

(4) 027610 000001 «WORD TSLOLIM 

(4) 027612 077777 -WORD TSHILIM 
5478 027614 GPRMD PATITM,54,D,17,0,10,YES 

(4) 027614 026052 eWORD TSCODE 

(4) 027616 030405 -WORD PATIM 

(4) 027620 000017 eWORD 17 

(4) 027622 000000 eWORD TSLOLIM 

(4) 027624 000010 eWORD TSHILIM 
5479 027626 XFER ENDSP2 

(5) 027626 002004 eWORD TSCODE 
5480 027630 ENDSP1: XFER ENDSP 

(5) 027630 075004 -WORD TSCODE 
5481 027632 ENDSP2: GPRMD CMD6M,56,D,37,1,33.YES 


(4) 027632 027052 -WORD TSCODE 
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(4) 027634 030442 «WORD CMD6M 
(4) 027636 000037 «WORD 37 
(4) 027640 000001 -WORD TS$LOLIM 
(4) 027642 000033 -WORD TSHILIM 
(4) 027644 030052 -WORD TSCODE 
(4) 7646 030355 ° BPCRM 
(4) 027650 177777 «WORD <1 
(4) 027652 000001 -WORD TS$LOLIM 
(4) 027654 004000 -WORD TS$HILIM 
5483 027656 GPRMD NUMBM,62,D,-1,1,77777,YES 
(4) 027656 031052 «WORD TSCODE 
(4) 027660 030365 -WORD NUMBM 
(4) 027662 177777 «WORD -=1 
(4) 027664 000001 -WORD TSLOLIM 
(4) 027666 077777 . «WORD TSHILIM 
5484 027670 GPRMD PATITM,64,D,17,0.170,YES 
(4) 027670 032052 «WORD TSCODE 
(4) 027672 030405 -WORD PATIM 
(4) 027674 000017 eWORD 17 
(4) 027676 000000 eWORD TS$LOLIM 
(4) 027700 000010 eWORD TSHILIM 
5485 027702 GPRMD CMD7M,06,D,37,1,33.YES 
(4) 027702 033052 «WORD TSCODE 
(4) 027704 030450 eWORD CMD7M 
(4) 027706 000037 eWORD 37 
(4) 027710 000001 eWORD TSLOLIM 
(4) 027712 000033 «WORD TSHILIM 
5486 027714 GPRMD BPCRM,70,D,-1,1,DATCNT,YES 
(4) 027714 0340 «WORD TSCODE 
(4) 027716 030353 WORD 
(4) 027720 177777 «WORD -=1 
(4) 027722 000001 -WORD TSLOLIM 
(4) 027724 004000 «WORD TSHILIM 
5487 027726 GPRMD NUMBM,72,D,-1,1,77777.YES 
(4) 027726 035052 eWORD TSCODE 
(4) 027730 030365 -WORD NUMBM 
(4) 027732 177777 eWORD -1 
(4) 027734 000001 eWORD TSLOLIM 
(4) 027736 077777 -WORD TSHILIM 
5488 027740 GPRMD PATITM,74,D,17,0,10,YES 
(4) 027740 036052 -WORD TSCODE 
(4) 027742 030405 eWORD PATIM 
(4) 027744 000017 eWORD 17 
(4) 027746 000000 eWORD TSLOLIM 
(4) 027750 000010 eWORD TSHILIM 
5489 027752 GPRMD CMD8M,76,D,37.1,33.YES 
(4) 027752 037052 -WORD TSCODE 
(4) 027754 030456 eWORD CMD8M 
(4) 027756 000037 10RD 37 
(4) 027760 000001 eWORD TSLOLIM 
(4) 027762 000033 -WORD TSHILIM 
5490 027764 GPRMD BPCRM,100,D,-1,1,DATCNT,YES 
(4) 027764 040052 -WORD TSCODE 


(4) 027766 030353 “WORD  BPCRM 
(4) 027770 177777 WORD -1 
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000001 
004000 


051038 
3036 

177777 
000001 
077777 
042052 
030405 
000017 
000000 
000010 


176004 
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GPRMD NUMBM,102,D,-1,1,77777, YES 


GPRMD PATTM,104,D,17,0,10,YES 


ENDSP: 
XFER JMPMSG 


SEQ 0169 


TSLOLIM 
TSHILIM 


TSCODE 
1 
TSLOLIM 
TSHILIM 
TSCODE 
PATTM 
17 
TSLOLIM 
TSHILIM 


TSCODE 
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BEX 

/CLEAR COUNTERS/ 

/RESET RANDOM VARIABLES/ 
/HALT _AFTER caer Og 


2 
ouor 


>>> > >> 
< AnNMNHMHHNMNYM 
MAMOMOOOIOOQOoaaVIOaaao- 


oN NO 
Es et tt es ee ee es fe tt es oe nn feng es en Be 


wi 
3 
RVAISSNG 


/BAD TAPE S$ TE 
/DISABLE INTERRUPTS/ 
/INHIBIT RFC ERROR REPORT/ 
/47454 RAM DUMP/ 


/CHANGE CMD SEQ/ 
/CHARACTERISTICS CODE/ 
**CMD/2"" 


ed ed et at do et 
ooo°o-— 
WNW 
NINN III NN 


g 


/BRF COUNT/ 
/# OF OPERATIONS/ 
052101 042524 /PATTERN/ 


-WORD TSCODE 


wi WANA UVIVIVIUIVT 


MMVIVIVMIVIUIA 


046503 0275 000063 
503 4 


PO POMIPIMPONIND NPI) 2 2 2 OO Ot 
WDONAOUSW HNO VONOULSWN Oo 


00067 
046503 027504 000070 


5 
5 
3 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 


LIST 
ENDSFT 


WLLH AS 


-EVEN 


MIA A UIUTIUT 
yuu 


3 RARER AARAREEEEREEEAREREEEREREEREREEREREEREREKERREREEEEEEREREEEEEREEEE 


FERRARA EREREREREREREREREREREREEREEREREA RERRAEEERERERERE REAEEAEREREEEEREE 
: PATCH AREA 


000100 PATCH:: .BLKW 64. 
s RAEREEAEREREREEEEEEEREREREREEEEEEREREEREREREEREEEEEEEREEEREREERREEEEEEEE 
3 RERRAEAREAEERREREEEEEREEEREEEREEREREREERAREEEREEEREEEREARAEEEEKEEEEEEREEEE 


LASTAD 


-EVEN 
030700 -WORD TSFREE 
000004 -WORD TSSIZE 
L$LAST:: 


" ENDMCD 


MMNUIVIM VIII 
ARAMMUIMIVIMI 


w MMS SEW 


Ww 
VA TSSONSY 
tn EALALALALALALALNEALENEA §=TALNAD NAN AMNAMNMNUNKNHNKHOYNYDDADADAADADAD: 








C 14 
PARAMETER CODING MACY11 30(1046) 12-JUL-83 09:44 PAGE 79-1 
CZTUVB.P11 12=JUL-83 09:26 HARD CODED P-TBL SEQ 0171 


-SB1TL HARD CODED P-TBL 


++ 
DIAG IS PRE-PARAMETERIZED PER TBL 


BGNSETUP 1 
BGNPTAB 
000000 «WORD O 
000002 «WORD 110045-. 
110043: 
172522 172522 
000224 4 
ENDPTAB 
L10045: 
ENDSETUP 
000001 END 


mtnnmn 


1 
T 
1 
1 
1 
1 
1 
1 
1 
1 
1 
] 


a ee oe ed oe A oe 





PARAMETER CODING 


CZTUVB.P11 


100000 G 


= 000020 G 
003532 G 


@ 
at 
414-4 
cs 


1 
2 
3 


oaoawwoww 
8 Ce et et eet 
+44 

40 4 

w 


@ 
ee et ae me ae Oe 


hein] 
MWEWMN—o ~ 


BRCPK 
BRFCNT 


38 
BAISSSsssss 


0023 
00342 


MACY11 30(1046) 
12=JUL-83 09:26 


37114 
3161 
2608 


3553 
5468 


2674* 


12-JUL-83 09:44 PAGE 80 
CROSS REFERENCE TABLE == USER SYMBOLS 


2048 2051 2054 2057 2060 
2087 382090 «62093 2096) 2099 


27430 2759S 2771 3810 4941* 


4618 4625 4632 4639 


4231 
3909 


36204 
5472 


2675* 


5117 
5476 


2676 


5490 
2830* 


5482 
2677* 


5486 
2679 


2063 
2102 


4954* 


5516# 
2896 


2066 
2105 


5176* 


3674 


3675 


2072 
2111 


5216* 


3889 


2075 
2114 


5224* 


3894 


SEQ 0172 


2078 
2116 


5309 





PARAMETER CODING MACY11 30(1046) 12-JUL-83 09:44 PAGE 80-1 
CZTUVB.P11 12=JUL-83 09:26 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0173 


BRF.C = 004000 G 2051 2054 2063 2066 2069 2072 2075 2078 2081 2096 
2099 soe 3166 5358 
002550 G ¢ 3575 91 


0 

003520 G 5 36* 2737* 3575* 3576 3577* 83579 «= 4149% §=4150 4157 
017762 

003000 


5286 


3393 3515 

004166 G 24734 2 é 

002314 G 2543 ©2551 2 2836% 2838 28448 
7 2 28 3035« 

648 36498 

4696*  4698« 


5101 


CMD.CO= 000001 G 


CMD.C1= 000002 G 
CMD.C2= 000004 G 
CMD.C3= 000010 G 


3s. AOA NAM 
AADOONWNW 
MOPRIRIWINMIwin 
SOMDOOWN YN 
OVI NUS 
WH OOM On dO 





—— — MH HO St HH Ot INS ot 


F 
PARAMETER CODING MACY11 30(1046) 12-JUL-83 09:44 PAGE 80-2 
CZTUVB.P11 12=-JUL-83 09:26 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0174 


CMD.C4= 000020 G 
CMD2M 030345 


wiwn 
22 


3866* 3870* 3873 


PPVNVWUMNNnns9s 
SU Wwronononn— 
ot + tt 4 

22 2Bez 


z 


2870* 3624% 3649*  3798*  5360* 
cP: CNT= 000006 G 2861* 3361 3650* 3896 4684*  4687* 4693*  4696* 
CRLF 005277 G 

3200 3212 


4336 
4615 


Ul 
U 
V 
V 
V 
V 
V 
V 
W 
ts 
! 
W 
W 
W 
tw 
‘al 
W 
tw 
‘al 
WW 
WW 
‘a 
4 
I 
a 
ie 
4 
x 
x 
x 
X 
x 
y 
y 
x 


CSGPRI= 000040 
C$INIT= 000011 





14 
PARAMETER CODING MACY11 3061046) 12-JUL-83 09:44 PAGE 80- g 
CZTUVB.P11 12=JUL-83 09:26 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0175 


CSINLP= 000020 
CSMANI= 000050 


CSOPEN= 000034 
CSPNTB= 000014 
CSPNTF= 000017 
CSPNTS= 000016 


CSPNTX= 000015 


mr YO osososoe 


SNAG NNN 
VVV LV eerVVess 


MmMnVnNN~, 


3845 4350* 
DATAWT 003416 G 22664 899 3085* 64 


DATCNT= 004000 G 


DATRAT 
DEVTBL 


oe 


= S S 

Ww ™m 
Mr 

— ENON — 

Woooancoooe 


3972* 4007* 4025+ 
3380 3463 3478 3510 3520 3989" 





PARAMETER CODING 
CZTUVB.P11 


Mm 

al 

oO . 

n“ 

“+ 

QS 

“ “ 
VFSVF 
Qa AQAAAAaA 


ENDERF= 003500 
ENDFLG= 003536 
ENDSP 030022 
ENDSP1 027630 
ENDSP2 027632 
EOTFLG 003510 G 


ERCVER eoere? G 
ER 4G 


000004 G 
EXALL 006760 G 


EX 003 

EXS 

ESEND = 002100 

ret = 35 
FATSM 004457 


G 
FIRSTU 016614 G 
FMT.CO= 000040 G 
FMT.C1= 000100 G 
FTLCNT 003320 G 
FUNRM 004437 G 
FSAU_ = 000015 
FSAUTO= 000020 
FSBGN = 000040 


FSCLEA= 000007 
FSDU = 000016 
F SEND = 000041 


24954 
19204 


MACY11 30(1046) 
12=JUL-83 09:26 


12-JUL-83_ 09:44 PAGE 80-4 


47 
3639* 


4612 
5079 


5116* 


4619 
5173 


30004 


3805 


4407* 


CROSS REFERENCE TABLE -- USER SYMBOLS 


4126 


2757 


3435* 


4640 


5223 


3627 
5206* 


4287 


2758 


4647 


3636 
5242* 


4319 


2767 


4654 


3653 


4390 


3150* 


4661 


3849 


4453 


3173 


4668 


4082 


4588 


SEQ 0176 


3808 


4670 


5107 


5081 


14 
PARAMETER CODING MACY11 30(1046) 12-JUL-83 09:44 PAGE 80-5 
CZTUVB.P11 12=-JUL-83 09:26 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0177 


5306 =: 5367 5392 5413 5552 
FSHARD= 000004 5427 5455 5461 5479 


FSHW = 000013 
FSINIT= 000006 


FSJMP = 000050 4141 4362 4460 4494 


4111 


Sewn fo 
NOOWMOGOWOO 


NSS one 
oS 


SVeeereese’ 


ee 


52 
55 
17 
17 
17 
17 
53 
17 
17 
17 
17 
17 
17 
1 

17 
46 


G$NO_ = 000000 
GSOFFS= 000400 
GSOFSI= 000376 


GSPRMA= 000001 
GSPRMD= 000002 


G$RADO= 
G$XFER= 000004 
GSYES = 000010 





J 14 
PARAMETER CODING MACY11 30(1046) 12-JUL-83 09:44 PAGE 80-6 PA 
CZ2TUVB.P11 12-JUL-83 09:26 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0178 CZ 


5477 5478 5481 5482 5486 5487 5488 
5492 


4120 4173 
5497 


1 
00 
= 01 
= 000040 
= 020000 
= 000200 
021222 
021442 
021462 $f 
003500 G 
000340 
003527 
002210 
030140 
31 
R = 100 
= 000 
ISAU = 
ISAUTO= 884 
ISCLN = 
ISDU = 84 
ISHRD = 
ISINIT= OF 
= 84 
= 74 
= on 
= 184 
= 78 
15 
U= 000041 514 
= 000( ‘1 324 
= 000041 824 
5066 20 
ISTST = 000041 4600 4 4636 
4706 51504 
JLOC 003454 G $ 
JLOOP 003452 G $ 
JMP == 000040 G $ 
JMPMSG 030416 $ 


JmP.C = 000040 G 
JSJMP = 000167 

LENMSK 003440 G 
LOE = 040000 G 





PARAMETER CODING 
CZTUVB.P11 


LOG 


MWR 
e2I2S= 
F2SESO 

AAAAAAAAAAAAQAQAQAAMD 


= mm 
RSVSVES 
OO f£OCO—-NoO 


MACY11 30(1046) 
12-JUL=83 09:26 


3096 
19204 


36684 


45194 
43884 
44Gae 


18064 


17914 
3042 


44844 
18074 


54034 


18184 
42204 
55424 
3959* 


4207# 


4259 
18294 


£ 
12-JUL-83_ 09:44 P 
CROSS REFERENCE TABLE -- USER SYMBOLS 


4008 


3071 


3287 


3074 


3855 


14 
AGE 80-7 


4233 


4312 


4324 


4335 


5279 


SEQ 0179 





14 
PARAMETER CODING MACY11 30(1046) 12-JUL-83 09:44 PAGE 80- & 
CZTUVB.P11 12=-JUL-83 09:26 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0180 


002312 
005640 


006564 
006572 
006600 


2105 2108 2606 2723. 2756 
2093 2096 2099 3404 


3206 §«=6.3218 «=: 3283 3675 3676 





14 
PARAMETER CODING MACY11 30(1046) 12-JUL=83 09:44 PAGE 80-9 


CZTUVB.P11 12=JUL-83 09:26 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0181 
etc ae oe 
NCNT 003422 G ad $967 2703* 2865* 3041 3799x 3800  3829*  3831* 3858 5104 5110* 5112* 
133+ 138* 5285 5308 5316* 
NCNT1 003424 G 2269# 2667 2864* 3800 3829 5104 5110 5285 5308 
NEXTSP 027322 5455-54574 
NEXTU 016662 G ata 2748) = 2778 = 3015 3825 39724 84138 4307 4345 4417 4457 4596 5141 
NINUSE= 177774 G 20424 2212 2213 82214 2215 3063 = «3195 = 3345 3369 «= 3406 = 3548 = «35560 3564 
3644 3654 3776 3828 3953 3976 = 4017 4256 4492 5109 5114 5130 
NOINTM 004505 G 24844 3087 
NRDYM 023102 4332 4413 44244 
NSSRM 004355 G 2479# 3005 
NUMBM 030365 5465 5469 5473 5477 5483 5487 5491 55174 
NURTY1 005157 G 24964 3702 
OFLINM 005213 G 24974 4329 4408 , 
ONEFIL= 000001 ie 1754 1889 1890 18974 1904 4095# 4102 4555 45644 5368 5369 53774 
OPFLAG 003542 G 23374 = 4270* 4318 
-C = G 196 2043 = 2072S 2078 =: 336 

OSAPTS= 17284 861775 
O$AU = 000001 17284 817654 = 1775 
OSBGNR= 000001 17284 817654 1775 
OSBGNS= 000001 17284 17654 1775 

= 1 17284 8617654 1775 
OSERRT= 17284 =61775 
OSGNSW= 1 17284 17654 1775 
OSPOIN= 000001 17284 17654 1775 
O$SETU= 000001 17284 17654 1775 5542 
PASCNT 003260 G 22434 2524 2541 4011 4012" 4128 4300* 4302* 4593 
PATCH 030464 G 55384 
PATERN 003456 G 22824 2866 2895 
PATRO 010364 G 2906 29198 
PATRI 010422 G 2907 3=s_ - 2932 
PATR2 010442 G 2908 29424 
PATRS 010452 G 2909 29484 
PATR4 010476 G 2910 29598 
PATRS 010510 G 2911 29664 
PATR6 010522 G 2912 = 2972e 
PATR7 010542 G 2913 29814 2986 
PATR8 010574 G 2914 29914 
PATTBL 010342 2900  2906# 
PATTM 030405 5466 5470 5474 5478 5484 5488 5492 55184 
PCMDWD 003434 G 22734 = =2704* 2793 2879% 3168 3172 3288 3386* 3620* 3631*  3645* 3772* 3779+ 

3832* 8 5317* 5355* 

PIRE 002213 G 18524 5243 
PNT = 001000 G 1920# 
PR: = 002000 G 19204 
PRIOO = 000000 G 19204 4317 
PRIO1 = 0G 19204 
PRI02 = 000100 G 1920# 
PRIO3 = 000140 G 19204 
PRI04 = 000200 G 
PRIOS = 000240 G 1920# 
PRI06 = 000300 G 19204 
PRIO7 = 000340 G 19204 2028 4393 





N 14 
PARAMETER CODING MACY11 30(1046) 12-JUL-83 09:44 PAGE 80-10 
CZTUVB.P11 12=-JUL-83 09:26 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0182 


017140 G 
027050 5250 5251 
1 4348 4360* 
013360 G 3224 3304 3323 3352 = 33379 3477 34844 = 3509 
015164 G 3488 3495 37264 

005310 485 


3491% 3494% 3732 3744 


5252 = 253 


4933 4996* 
5073*  5161* 
1886 20374 
4980 4981 
2985 4248* 
4974 


5000 
6 


1 
104401 994 
3160* 3378*  3381* 


003330 
003473 
006562 
00661 
11636 
050232 
004634 
050230 
003466 
014550 
002660 


2547% 25704 


oa — 
a fA AMA A AAG 


3403* 3588 


G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 


RPTFLG 003525 





8 15 
PARAMETER CODING MACY11 30(1046) 12-JUL-83 09:44 PAGE 80-11 


CZTUVB.P11 12-JUL-83 09:26 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0183 
RPTIA 020230 4128 41854 
RPTIB 020305 4129 41864 
RPTIC 020356 4130 941878 
RPT1D Sedeel 4131 41884 
RPTIE 020655 4148 41928 
RPTIF 020533 4132 41904 
RPTIG 02 4133 41914 
RPT11 02100 4137 = 41954 
RPT1J 020705 4151 41934 
RPTIK 020772 4160 41944 
RRANV 002205 G 18464 4246 
RRBC 002620 G 22304 4130 
RRECL = 20 20384 3394 3524 
RRREC 02740 G 22344 4132 
RR 002750 22354 41 
RRVM 3 5451 55054 
RTLE 013512 G 3392 3428 35074 
RTLRTN 013646 3512 35304 
002334 G 21534 3382 3459 
= 102010 G 20844 153 2348 2364 2391 2651 3070 3163 «= 4747 4823 4845 4891 
R_ 003475 G 2299% 3230 3362* 3514" 3585" 3693 
RSSAVE 003462 22854 3011* 301 3989* 4026 4125* 4140 5127* 5129 
SCCNT 003270 G 22448 3202* 3300* 4137 
004314 2477# = 3255 
H = 140004 21144 2344 240 2636 3010 4725 4733 4741 
SCHBK_ 002446 G 21754 2854 2856* 3018 
SCHCNT= 000010 20294 2855 
SEQEND 003634 23694 4932 5169 
SETCH 006714 G 26354 4921 5075 5165 5207 5244 
ETRW 006740 G 26514 4923 4957 5076 5166 5185 5208 
SETUP 00772 2666 28274 4080 5102 5125 5284 
SFF = 105010 G 20964 2395 3073 = 4809 4817 
SFPTBL 002204 18384 
SFR = 105410 G 20994 2396 3073 4805 4813 
SRF = 104010 20634 2384 4827 4835 
SRR = 104410 G 20664 2385 3288 3621 4831 4839 
STAERM 005642 2540# 3005 3030 3049 3087 3223 3255 3271 3303 3322 3351 3400 3430 
3461 3476 3508 3518 3526 4002 
STAER1 006 2524 2541 25574 2790* 2791% 2792 
STAER2 006332 2550 25614 
STAERS 006411 2551 25624 
AE 006447 2552 =. 256354 
STAERS 006467 2553 25664 
STAER6 006276 2534 2548 25604 
STAER? 006246 2525 2542 2559H 2796* 2797* 2798 
STAFLG 003536 G 23284 4022 4252* 4267" 4275 4605* 4922 4924* 5077* 5167*  5209*  5255* 
TRE 003533 G 231 38 23 5093* 5145* 
STTIM 003414 G 22654 3770" 3778* 3868 3872* 
SVCGBL= 000000 17284 17424 1775 1791 806 1807 1818 1838 2518 2540 2582 2586 2590 
2594 4118 4207 4220 4388 G444 4484 4519 5403 5441 55424 
SVCINS= 000001 17284 817394 = 1775 1791 1806 1807, 1818 1838 2524 2525 2534 2535 2538 
2541 2542 548 550 2551 2552 $234 2554 2572 2584 9358 592 596 
2752 3005 030 042 3049 3069 071 3074 3087 3125 22 255 271 
3303 3322 3351 3376 3400 3430 3461 3476 3485 3496 3508 3518 3526 
3572 3592 3702 3747 3753 3891 3892 3895 3896 §8=s_- 3921 3928 §=._: 3936 3957 
4002 4010 4016 4037 4038 4052 4053 4059 4128 4129 4130 4131 41 





an 


PARAMETER CODING 


SvCSUB= 000000 
SVCTAG= 000000 
SVCTST= 000000 
SUSFLG 003526 G 
SWB.C = 010000 G 
SSLSYM= 010000 


TAPCAP 021112 
TCCRA 32 


oo 
= 


TCcC1 012274 G 
TCC2 012312 G 
TCC3 012460 G 
TCC4 012502 G 
Tcc5 013200 G 
TCC6 013302 G 
TCC? 013336 
TC2RTN 012456 
IME1 003446 


TSBA_ = 0024 
TSC.FC= 177717 
TSC.1C= 


TS. RMR= 010000 G 


MACY11 30(1046) 
CZTUVB.P11 12-JUL-83 09:26 


‘ 15 
12-JUL-83 09:44 PAGE 80-12 


CROSS REFERENCE TABLE -=- USER SYMBOLS 


oe 
1339 4335 
4413 4420 
4594 4598 
4641 4643 
4961 5051 
5410 5411 
5458 5459 
5471 5472 
5484 5485 
5552 
4583 4600 
1829 1887 
4508 4551 
4701 4908 
4578 4915 
2881 3794 
Se 0 a 
18874 25384 


4342 

33084 , 
2532 3000* 
3928 4059 
2533 3925* 
4396 4431* 
2551 3045* 
3029 3047 
3029*  3141* 
4297 4456 
4406 


3067* 
4334* 


3734 
3141 


3205 


SPH MPIOOLWN— 
CONOWUN— OWo 


ATI ES EE EES 
™“ 
SAASSNaaass 


3082* 
5278+ 


3998* 
4294s 


3083 
5280* 


4295* 
4325 


42018 
46484 


3123* 


4403+ 
4394 


SEQ 0184 


3127 


4405 


0.15 
PA T N MACY11 30(1046) 12-JUL-83 09:44 PAGE 80-13 
CP TUVELPT  te=JUL-83 09:26 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0185 


TS.SC = 100000 G 
TS.SPE= 020000 G 
TS.SSR= 000200 G 


RAE 


3047, 30793927 4325 4405 


“4 
4 
> 
& 
zz 

SRF 

mn 
~ 
mw 
o 


AAQADAGA a 


TS4INS 006610 
TS4VCT 027243 
TSARGC= 000001 


WVMININNNNNYA 
PNR eS SN FOWO 


TSCODE= 023004 


TSERRN= 000001 
TSEXCP= 000000 


TSFLAG= 000041 
TSFREE= 030700 


TSGMAN= 000000 
TSHILI= 000010 


TSLAST= 000001 
TSLOLI= 000000 


TSLSYM= 010000 


TSLTNO= 000006 
TSNEST= 177777 


OWuMc Guwcs 


SE VSM SUF SSN] VS vi 
On WUIWMcd 
ES Soeee 
a3 7 E+ 
= vw 
Ss Gtssseee 
= 82 


woo Ww 
z 


TSNS2 = 000002 
TSPCNT= 000000 


4606 
46504 





E 15 
1 30(1046) 12-JUL-83 09:44 PAGE 80-14 
CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0186 


PARAMETER CODING 
CZ2TUVB.P11 12=JUL-83 09: 


TSPTAB= 010044 


o— 


5556 


oa 


¥aleee fe 


TSTAGL= 177777 
TSTAGN= 010046 


TSTEMP= 000000 


—_ 


ee naten 
22zz 


MUI LSN WU 


TSTEST= 000006 
TSTSTM= 177777 


TSTSTS= 


MWns— 


2592 25944 2596 
4613 46154 4620 46224 4627 4629 4634 46364 
46574 4662 46644 4672 4680# 4701 


5051 50664 5147 5150 5159# 5189 5193 52034 


T$$SUB= 010033 


T$$SW = 010001 
TS$TES= 010040 


11 023342 G 
T1SWB 003531 G 


—LUIUEW Ul 
OOUMUI— WM WIUIWOD 
CoO ™m 
NWOO oa 


MUS aS HLHNULVW 


4678* 





F 15 
PARAMETER CODING MACY11 30(1046) 12-JUL-83 09:44 PAGE 80-15 
CZTUVB.P11 12=-JUL-83 09:26 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0187 


53504 


3517" 3525 
4688 4690 4694 


oo =—Cooooco00coo 
at rornonnrg 
WVinuv w 
=—VIW 
uN 
so 
DAQDAAAAAQAAAAARGAAD AQAAAIAAAG 


3294 3773 5139 


So 
ne 
SSeS 


00 
01 
00 
000 
00 


[sss 
WERA 
RASno— 
oun 


4901 4926 5026 


—=)—© 
SSSs= 


oa 
Nm 





PARAMETER CODING 
CZTUVB.P11 12=-JUL-83 09:26 


XO.RLL= 010000 G 
RLS= 040000 G 
100000 G 

100000 G 


SBRIMP 
SERFLG= 0004 


SFSAND= 000310 


MACY11 30(1046) 


WWNIWNINININ MAMAN 
WWMN-— oo 

BSR ONEESS sea see 
22 See 22 s 


15 
12-JUL-83 09:44 PAGE 80-46 
CROSS REFERENCE TABLE == USER SYMBOLS 


WANWIWINONONY 


oa 


&Oonrviroe 


win iw 
Ww um 
— 


WWAWNONON 
WN -OoONNO 


WAIMNUINNRN UW 


oa 
oa 
w 


WAIN owt 


oO Wronrnr 
Mo 
So 


WIWWAIWINGDD 
WN—oOon 


469 
4 
495 
5 
50 
5 

5 

5 

5 

5 

5 

2 


Re teitttey Pa} m= 

Sees 

WWNIWUIWININPOND PAA 
& 


Who 


None 


a wronn 
aaaee 


CON NINWS 
UNWOWO— 


SEQ 0188 





ov 


PARAMETER CODING 


CZTUVB.P11 


SFSBAD= 000401 


H_15 
MACY11 30(1046) 12-JUL=83 09:44 PAGE 80-17 
12=JUL-83 09:26 CROSS REFERENCE TABLE == USER SYMBOLS 


OE SSWW 
MAW OONOu 
et PND SP 
eo 


"OOO OWDONNAAQOW 
FNWOWONOUOWWM 


FOW 32S NSN VNUNIS 
WOoonoow 


WINN ANI ANIA POPONPONPINIAYPONY 


WWNN— 
~uUNoo 
Mw 


w 
Nm 
= 


AOUNNW— O@an 
FeSO SSS 
OWES MUMIWIO CBO 


POPIPOPIMININIUE & SW 
— WN 


onNNO 
Moku 


VWIW 
oO 


Pera ees 
FEGerEseaRe 


3 
3 
3 
3 
3 
3 
3 
3 
3 


SEQ 0189 





ov 


15 
P TER N MACY11 30(1046) 12-JUL-83 09:44 PAGE 80-18 
CPTUVELPTT 1 S-JUL-83 09:26 CROSS REFERENCE TABLE == USER SYMBOLS 


Oo 


ANW—Onrnrvoc 


wa 
Brows 
NMUINSON— 
—— 
MMMM 
VRS 

ae ert 
Sunkro 


MAMA 
MMMM 


Wnononn——o 
foonwucos-wvo 
onnN-Uo ow 
MUIMIUIMAA) 
WUIWNININ =O 
WOIPVSSvs 
MWNOL 

MMMM 


So 
NOLUAL ONO 
WG 
w 
oo 


WANN 
MWUWNNN | oO 
AOL Oan 


SFSBLA= 000170 
SFSCAS= 000150 
SFSDEC= 000220 
$FS$DO = 000340 


SFSFAL= 000405 
$FSGOO= 000400 


2 
6 
5 
? 


5 
3 
3 
? 
99 
48 
03 





J.15 
PARAMETER CODING MACY11 30(1046) 12-JUL=83 09:44 PAGE 80-19 
CZTUVB.P11 12-JUL~83 09:26 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0191 


Sys 
iN— Oo 
ADBESEAWOOCO 
—ou— “I S 
NRUNSON——o 
mM VWUMVMMMVIVIM 
oye Tes ie 
CO NEOCOOWSNUWSE 
Oh ah ah ah al 
Se aes 
SSSRSAA 


SFSIF = 000110 


MMM VMWMVIV 
NOOO Wroront—— 
NEMO —COUI— ns 


SOOVMWAWUIWWO O09 O COW 
anw 


6 
7 
3 
7 
6 
8 
1 


$FSINC= 000210 





K 15 
PARAMETER CODING MACY11 30(1046) 12-JUL-83 09:44 PAGE 80-20 
CZTUVB.P11 12=JUL-83 09:26 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0192 


FINS 

Nw 

So 

> | 

oO 
Tt xh 4 


WAWNWWP 
AsScons 
NO ONW 
ew 
on 
WIM & Our 
ied Say PS tet St 


WIWAAIANAIAIII 


SAWN 


ww 
o 
_ 
wi 


2 
$ 
3 
3 
3 
3 
3 
3 
3 
3 
34 
35 
35 


MN & & & 
~™ 


J 

3 

NO 

BASIS aBFanVos 


woe 
SSax w 
mon 
FAN ARM NM NNO NP 
FRS 
MMnN— 


Wron-——-o0 
SSNS 


Bee 


WI O NUIAWNWMOAWO 


$FSOR = 000320 


ww 


SWUOL-ONVUInos 
_—— & ON 


NNOWWNNN — —$OoO 
eon 


NNOUONS— Oo 
Oo FU NW One 
PIII MAMMA $ 


IAPIPIPD AAAI ATT 


cwoncn— 
CONGO Oca OCOWN 


AIAN NI MUI 


—Cano 
SN NU 
WoOwWo— 


o 
SS yee 


AMIOwW 


Seros 


Be Ne aie ot WNNN-— 
SESS 


WAWI AWAD NDIDD HAUT & 
WAN AAAI RININ ANNA 
WAI ANAIAIAIRRD VMN 

oS 

oo 


ONCOL 
WSUS Wwn-oOnN~N 
WIA 

NO UIP 
NWO 
-—OonNOoOWwW 
WANA 
NOUWN — 

NS —~—e 
ALulo 
WWII NO 
OU INI 
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PARAMETER CODING MACY11 30(1046) 12-JUL-83 09:44 PAGE 80-51 

CZTUVB.P11 12-JUL-83 09:26 CROSS REFERENCE TABLE =~ USER SYMBOL. SEQ 0193 
3818 3828 3846 3850 3853 3854 855 858 3861 3867 3868 8 a 
3903 3908 3909 3927 3935 3933 3936 3994 4001 006 4011 4017 
4018 4050 4051 4127 4134 4152 4153 = 4163 4231 4237 4240 4246 4272 
4275 4289 4298 4299 = 4310 $338 $360 4325 432 4340 4348 4351 4391 
439% 405 4406 4454 58 459 4675 4715 492 4932 5067 5089 
5109 5114 5130 5169 5260 5285 5288 5294 5295 5296 5300 5307 5310 

SFSRTN= 000300 1730 

SFSSEL= 000140 17304 

SFSTHE= 000330 17304 2545 2606 2608 2613 2669 2670 2671 2676 8626 2689 2693 27 
2723 2724 2725 2726 2734 2739 gine 2750 75602 2757 2758 3=62759 2767 $ 
2771 2838 2845 2873 2881 2924 003 3010 028 30 3040 3041 3047 $ 
3063 3070 3073 3076 3084 3095 3159 3161 3163 3166 3167 3168 3172 $ 
3173 3195 3 3200 3201 3205 3206 3217 3218 3219 3221 3230 3283 $ 
3287 3292 3294 3296 3297 3345 3349 3350 3354 3357 3369 3375 $ 
3393 3395 33 3405 3406 9 3434 3484 3507 3515 3516 3524 3548 $ 
3556 3 3571 3574 3578 3590 3591 3630 3644 3654 3 71 $ 
3675 3693 3695 7 3701 3771 3776 $794 3807 3808 3809 3810 3818 $ 
3828 3850 3853 3854 3855 3858 3861 3867 38 38 38 3907 $ 
3908 9 3927 3935 3956 4001 4006 4011 4017s 4018 4050 4051 4134 $ 
4152 4153 4163 4231 4237 4246 4272 4275 4298 4 4310 4318 4325 . 
4326 =. 4340 4348 4351 4396 4405 4406 4593 4922 5067 5 5114 5130 
5288 5295 296 5300 5307 5310 

SFSTRU= 000404 17304 

$F = 000130 17304 3001 3009 3068 3083 3110 3112 3124 3127 3 3373 3550 3552 
ize) $308 2998 3933 3974 3976 4159 = 4168 4255 4258 4260 4263 4931 

SFSWHI= 000120 17304 2665 2667 2687 2693 2699 2705 2708 2722 27 2739 2749) 2755 
2767S 2777 2811 2813 3013 3916 3022 3025 3040 3073 3146 3149 3161 
3205 3219 3283 3288 3294 3349 3350 3399 3679 3682 36 3687 9 
3692 3701 3800 8 3818 3826 3834 3846 3848 3953 3955 7 
4127, 4139 4240 4243 4289 4308 4318 4320 4346 = 4391 4418 4454 4458 
4589 4597 4675 4677s 4715 4717 4932: 4936 5089 5113 5143 5169 
5171 5260 5285 5294 5300 5306 5318 5322 

SFSYES= 000402 17304 2526 2527 = 2528 2530 2531 2532 2533 2543 2544 2545 2547 2549 
2583 2587 2591 2595 2606 2607 2608 2609 2610 2611 2612 2613 2614 


2 
2925 «2926 = 2933 2949 29735 2981 3000 3002 3003 3008 3010 3011 sou 


3017, 3018 )3=— 3019 3020S 3021 3022 §=6 33023 3024 3028 3029 3033 3034 30 

3037 8 §=©©3038 3039 §=©63040 8 = 3041 3043 3044 3047 8=— 3051 36603 3065 3066 3067 
3070 §=s 33072-—sis«3073— 3075 3076 3077, 3078 )3=s «3079's 3080=— ss: 53081 3082 863084 «= 33085 
3089 ©3091 3095 3097, 3099s 3100s 3109) 3111 31235-35126 35141 3142 = 33143 
3144 3145 3146 =—3147 3148 3150 3159 3160 3161 3162 3163 33164 0S 33165 
3166 3167 3168 3169 3170 3171 31720 3175 3174S 53175 3176 = 33177 ss 53178 
3179 §=6. 33180 2S 33181 3186 3195 3197) (33198 )=—s( 3199) 3200S 3201 3203 = 33204 3205 
3206 3207 3208 9 3210 32:1 3212 (3213. 3214 Ss 3216s 5217 2S 5218 = 3219 
3221 3222. 3225 226 = 3227 3228 §=6.: 3229s 323002 32311 3232 3254 3283 3286 
3287 §©=—6_: 32.88 3290 291 3292 3294 3296 6 33297, ss« 3298 «= 3299s 5300 =Ss 3301 3302 





M15 
PARAMETER CODING MACY11 30(1046) 12-JUL-83 09:44 PAGE 80-22 
CZTUVB.P11 12=JUL-83 09:26 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0194 


3305 3306 3307 =. 3345 3347 3348 3349 = 3350 )= 3353) 3354 3355 3356 3357 
3359 3360 3361 3362 3363 3365 3366 4«=6.: 3367 Ss 3369 = 33:71 3372 0 8=— 3375 3378 
3381 3382 3383 = 33384 3385 3386 33870 («33388 «= 3389) 3390S 3391 3393 394 
3395 3396 §6=6.: 33397 -s« 3398 =: 3399 40 3403 3404 3405 3406 3408 34 3410 
3414 3415 3416 3417 3429 43 3433 3434 3435 3436 3437 = 33441 3442 
3443 3459 3484 3497 3507 3513 3514 3515 3516 351f SSea 8 86doee 3524 
3525 3528 3529 3548 3554 3556 §=63557 = 33558 3559 3560 3563 3564 35 

3567 3568 3570 = 3571 3573 3574 3575 3576 8663577 «= 3578 3579 = 3580) = 33581 
3582 3583 3584 3585 3586 3587 3590 3591 3593 3594 3595 3620 86 3621 
3622 8 8©6—_- 3623 3624 3625 3630 3631 3632 © 33633 3634 3639 §=§ $640 3644 3645 
3646 3647 3648 3649 3650 651 3654 3657 3658 3668 3669 3670 3671 
3672 83=— 3673 3674 3675 3676 3677 33678 «= «3679 Ss 3680 =: 3681 3683 3684 3685 
3686 «© 3688 3689 6 3691 3693 3694 3695 3697 33698 «= (3699s 3 

3701 3703 3704 3705 3706 3707s « 33708)=—( 3769s 3770s 377 3772 )0=— (3773 3774 
3776 0=—s «337773778 ~=—Ss( 3779S: 3780 3781 3783 = 3784 wee) lat 3795 37 3797 


4333 4340 4343) 4347 4348 = 43500 4351 4354 4355 4357 4358 4391 
4392 4394 4396 4397 4399 4400 4402 4403 4405 4406 4407 4410 4411 
4412 4415 4416 4431 4454 4491 4492 4527 4528 4530 4531 4532 4534 
4580 4581 4585 4589 4590 4591 4592 4593 4595 4602 4605 4610 4617 
4624 4631 4638 4645 4652 4659 4666 4669 4671 4674 4675 4675 682 
46 46 4687 4689 4691 4693 4695 4696 4698 4703 4714 4715 4716 
4718 4917 4918 4919 4920 4922 = 4924 4925 4926 4927 4928 4929 4930 
932 4933 4934 4937 39 941 4950 4951 495 4954 4955 4956 4958 
4994 4995 4996 4997 4998 4999 5000 5001 02 5003 5012 5026 5041 
5043 5044 5045 5046 5067 5069 5070 5072 5073 5074 5077 5078 5089 
5091 5092 5093 5094 5095 5096 5097 5098 5099 =: 5101 5104 5109 5110 
5111 5112 5114 5116 5118 5119 5120 5121 5122 5123 5124 5126 5127 
5129 5130 5133 5136 5137 5138 5139 5140 5145 5161 5162 5163 5164 
5167 5169 5172 5174 5176 5184 5186 5205 5206 5209 5210 5211 S212 
5213 5214 5216 5217 5218 5219 5220 5221 5222 5224 5241 5242 5243 
5245 5246 5254 5255 5256 5260 5263 5267 5269 = $270 5273 5277 5278 
5282 5285 5288 5290 5292 5294 5295 5296 5297 ($298 5299 5300 5302 
5303 5304 5307 5308 5309 5310 5312 5313 5314 5315 5316 = 55317 =: 5337 
5338 5339 5340 5341 5355 5356 5357 5358 5359. 5360 

SIFLEV= 177777 17304 25458 25494 2606# 26084 26134 26154  2620H 26234 26694 2670# 26718 26764 
26784 26804 26814 26824 26884 26894 26914 26934 26964  2697# 5/008 7024 27234 
27244 §=—2725H4# =a 26H = 2B 7314 «2732 §=627344 = 7384 stan 27434 7454 464 27478 
27504 27534 27564 27574 27584 2759% 27614 27644 765#@ 4 2767# = =«771#@ = o773H# 7748 
27754 28384 28404 28454 28494 28734 28784 28814 28834 2924# 292 30034 3 
3010# 30194 30284 30334 30364 30394 3040 3041#  3043#  3044# 3047# 30514 30634 


me TANMOAM? BF KOCH TA MMOD Z BH KACH ITO ™MMOODZ Sl ACK ITAMIOVZS SC ACH IFA MIO 


N_15 
1 30(1046) 12-JUL-83 09:44 PAGE 80-23 


PARAMETER CODING MACY1 
CZTUVB.P11 12=JUL~83 09:26 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0195 
30664 30704 30724 30734 30754 30764 30814 30844 30954 3099% 3100 31594 31614 
31634 1664 31674 684 31704 31724 1734 384 31764 86931774 =—351784# = 351798 
31824 1954 31984 31994 32004 2014 32034 32044 32054 32064 3210# 32134 32178 
32184 32198 32218 32254 322 27k 86352284 8635229 §=— 3523504 s$ace 32834 32864 32874 
32884 32914 3292H 32944 2964 832974 33014 33054 33064 33074 33454 
33494 3 33534 33544 33574 33694 33724 33754 33834 33874 33904 33934 33954 
33974 33984 399H 34024 34054 34064 3409 34164 34174 34298 34324 34344 4 
34844 34974 5074 35134 35154 35164 35224 35244 35284 35294 35484 564 35594 
35644 35674 5684 35714 35734 3574 35784 35824 35834 35874 35 35914 
3594 35954 36304 36404 36444 3654 36574 36584 36684 36714 36754 36774 9 
36954 37014 370 37044 37054 37064 37074 3708# 37714 37 3 37844 
37944 = 37 38074 38084 38094 38104 3812 38154 38164 381 38214 38224 
38304 38504 38524 38534 38544 38554 38584 38614 3864 38654 38674 38 38744 
38754 38774 638 38904 38944 39034 39054 39074 390 9 39124 391 
39144 39274 39294 39354 39374 39384 3939H 395 39584 40014 40054 40 40094 
40114 40134 40174 0234 40244 40504 40514 40624 41524 
1 41554 41634 4167# 41694 42314 42354 42378 424648 42464 42498 4272# 42748 
42754 = 4277# 42814 42844 42854 42934 4298# 43034 43044 43054 
43154 43254 64 43304 43334 43408 43434 43474 43488 43514 43544 43554 
44054 44 44108 44154 44164 45934 45954 49224 49254 50674 51094 
51114 51144 51304 51374 52904 52954 53 53034 53044 
53074 5310# 53124 53154 
$I1SKO = 000001 25454 2549 26064 2623 26694 2682 26884 2697 2700 2702 27234 2747 827504 
2753, e756H = b775 28384 2840 28454 2849 28734 2878 28814 2883 29244 2926 
30034 3008 30104 30284 3033 30364 3039 30404 30474 30634 
30704 3072 30734 3075 30764 3081 30844 31594 3195# 3198 
3199# 3229 32304 32834 3286 32874 3291 32924 33454 33494 
3429# 3432 34344 3443 34844 3497 35074 3515# 3529 35484 3595 
36304 3640 36444 3658 36684 3708 37714 3784 37944 8 37 38074 3822 38284 
38504 3852 38534 38 38904 3939  3956# 40014 0 40 
40114 4013 4017# 4024 4050# 4063 41344 4136 41524 169, «42314 = =4235 42378 
4244 42464 4249 42728 42934 305 43104 43184 4 5 
4396# 4416 45934 5 49224 4925 50674 5070 51094 5111 51144 5137 52884 
5290 52954 5304 53074 5315 
$I1SK1 = 000001 26084 2620 26704 2681 26894 2691 26934 2696 27244 2732 27344 2738 827398 
2746 = h757H# = 2.765 2767H# 2774 30414 3043 3095# 3099 31614 3180 3200# 3204 
32054 3213 32174 28 32884 3290 32944 3296 33504 3353 33544 3390 33934 
3398 33994 3402 34054 35164 3522 5244 352 355 559 35644 3567 
35684 3587 35904 94 36544 3657 36714 3707 3776# = 37 38084 3816 38184 
1 38544 3877 38944 4018# 402 4051# 4062 41534 5 4163# 4167 
42748 = 4285 42984 04 43254 4333 43404 4343 43514 435 44054 4415 
5136 52964 5298 53004 5303 53104 5312 
$1SK2 = 000001 26134 2615 26714 2680 27254 2731 27434 = 2745 27584 2764 2771# = 2773 31634 
3179, 32014 3203 32064 3210 32184 322 32964 305 33574 3387 33954 3397 
34064 3409 35714 3573 35744 3583 35914 3593 36754 3677 36934 8 
3815 38554 3876 39034 390 39074 39274 3929 39354 3937 4275 4284 
4299# 4303 43264 4330 44064 4410 
$1SK3 = 000001 26764 78 272 2728 2759H 2761 31664 3219# 3226 32974 330 33694 
3372 33754 3383 35784 35 36954 38104 12 38584 3865 38674 3875 
39084 3913 4277# 4281 
$1SK4 = 000001 31674 3177 32214 3225 37004 3704 38614 3864 38684 3874 39094 3912 
$1SK5 = 000001 31684 3170 3172# 3176 37014 3703 
bISK6 = 000001 31734 8 3175 
$SLOCTA= 177777 17304 2545 2549 2606 2608 2613 2615 2618 2620 2621 2623 2665 2667 
2669 2670 2671 2676 2678 2680 2681 2682 2687 «=. 2688 2689 2691 2692 
2693 2696 2697 =. 2699 2700 2702 2705 2708 2722 2723 2724 2725 2726 


PKK ITOMMOOWVZSSCACH IFA MIOO2S 
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PARAMETER sett MACY11 30(1046) 12-JUL-83 09:44 PAGE 80-34 
CZTUVB.P11 12=-JUL=83 09:26 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0196 


Mm —OSOooonnn 
MeO 

oo -“AWOOd 
oooonn 

N= NWN en 
on~ 
-“SONNINWO-Os 
WON SWO-wWw— 


WAWAWAIWIWININPPON 


A.NAINIAIANIAIAILAIAI POON 
SWWNNN—— oo 


SO Singo i ~se000 SFO — ono 
pay 
NO 


UNUES WWD ~N 
coun— Sco fco— 


3 
2 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 


SLSTCN= 177777 


Mrnrnn VI 


WAWANAWAAAAIWNIWINO NOPD 
VINES UWNIN  — OOo 
n= use - 


w—Ocosc— 
Wo 
DWUIONDWODOON FWO0-w 


MOO NOO— OO 
—NUWNOAO V0 
WINWAILAIAINNIANNWG 
UMNSWWNIN © 
MOONS O- ONS 
MNAVUUNNWOOO 
secs ~we0Go MONI 
WWAIWAWIAIAANAAIAIII 
MME WWII -2? — OOo0 
M—Seolfo-SrIvv =_ 
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CZTUVB.P11 12=JUL-83 09:26 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0197 


$LSTIN= 000001 


3 
43 


1 
1 
1 
2 
2 
3 
3 
4 


SUIWUWINN 


FON OWNS $$ O-—WNUOONANN 


30 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 


WWIWANAAAWWAAWNAANAAA 


WAWONOOUIWC 
WAWAINANW 

Srwo woo 
SORRRRSES 





D 16 
PARAMETER CODING MACY11 30(1046) 12-JUL-83 09:44 PAGE 80-26 
CZTUVB.P11 12=JUL-83 09:26 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0198 


ou NS ve] 
SaroOoe 


AANWMUINUIOC 
&* 


SLSTST= 177777 


MMNMNIMOMVIMMUIWMAIN 
AAOOWWNNIN = 
SSSVasunlve 


WOCOWES NOON NAWOOu— 
NNW 
“NNO 


FO ON NWN NUIWOO A — OMA S 


NOW oO 
RSSASIAGH=AS 
CARBUUMS AWNIA) — = =O0 ODN NNNOQOUWUWNNN == 
&nuMoonN 
SofVunoumnn 
FUWNN | |] “Ooo 
QUI ew 
Wco.wn— SCO 8 
SRoOMON 


= 
UNWOO & 


Nm 
yA St aS 


WAWWANAWNANNAAN 
CONAMUUIMIES NAW = 
SOO ONS & 


9 
0 
5 
5 
5 
5 
5 
5 
5 
5 
; 
2 
r4 
2 
2 
2 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 


OcoC0 CON 

ONU—NI0O 

N-Ow 0 

WWW NWA 
WANN WWW 
0.000000 IOs 

ONM—00O 

DUWOAWW 
WWW 
000069 NIA AUUIULES 
N= 

WARN 
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CZTUVB.P11 12=JUL=83 09:26 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0199 


S$LSTTA= 000001 


SMCALL= **e%e% J 
$NESTL= 177777 


3 
33934 





F 16 
PARAMETER CODING MACY11 30(1046) 12-JUL-83 09:44 PAGE 80-28 
CZTUVB.P11 12=JUL=83 09:26 CROSS REFERENCE TABLE -- USER SYMBOLS 


= 
bY 


nO 
Bos 


000110 


NOOOun 
= 


2 
2 
3 
4 
3 
1 
4 
1 
8 
0 
6 
0 
8 


—on 
Es 


$NSK3 = 000110 


3 
35 
38 
41 
43 
51 
26 
27 
32 
35 
38 
4i 
51 
26 
27 


5 
697 $557 
3226 2978 


™“ 
Ww 
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PARAMETER CODING MACY11 30(1046) 12-JUL-83 09:44 PAGE 80-39 
CZTUVB.P11 12=-JUL-83 09:26 CROSS REFERENCE TABLE <= USER SYMBOLS SEQ 0201 


36954 
3914 


SNSK4 = 000110 


WII SWINE 
op 
Sea as 3 


SNSK5 = 000110 
SNSK6 = 000110 
SSAVLE= 177777 
$SSKO = 050474 


STAGLE= 177777 


STAGNU= 050512 





H 16 
PARAMETER CODING MACY11 30(1046) 12-JUL-83 09:44 PAGE 80-30 
CZTUVB.P11 12=JUL-83 09:26 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 6292 


26924 
4 


STEMP = 000402 
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PARAMETER CODING MACY11 30(1046) 12-JUL-83 09:44 PAGE 80-51 
CZTUVB.P11 12=-JUL-83 09:26 CROSS REFERENCE TABLE <= USER SYMBOLS SEQ 0203 


$TSKO = 050473 


$TSK1 = 050474 


$TSK2 = 050475 


3682 
3830 3876 
41634 4240# 424 42754 42934 





16 
PARAMETER CODING MACY11 30(1046) 12=JUL-83 09:44 PAGE 80-32 


CZTUVB.P11 12=-JUL=83 09:26 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0204 
o30e" 4416 45934 4595 49324 4936 51044 5113 5114 5137 51694 5171 52854 
STSK3 = 050476 26674 2705 27244 2732 27344 2738 = 2739 = 27424 = 2746 757K = 2765 27674 27708 
774 31 78 219% 3226 32974 32998 3301 33644 3373 33754 3383 35564 
5584 3559 5714 3573 35744 3583 6794 3682 36844 3687 36894 36954 
36984 370 38064 3826 38584 38604 3865 38674 39074 39274 
42774 =64279# = 4281 42984 43224 4338 «= 43408 = 43434405 44114 = 4415 5104# 
5113 51304 5136 52854 5318 
$TSK4 = 050511 26694 2682 26874 2699 2700H 2702 27254 2729 2731 27434 2745 27584 27624 
27642771 — 2773 3167K = 51714 3=— 3177 221k = 35225 33694 33718 3372 35784 3582 
7004 38074 38174 38614 38 38684 38714 3 3913 42994 
pes hd $303 43224 44064 0 51094 5111 2 2 52944 53 53074 
$TSKS = 050510 26704 2681 26874 2699 2726 2728 2759#% 2761 31684 3170 31724 3176 37014 
5002 sed 3818 38184 3821 39094 893912 43254 433514 4333 43344 4337 52944 
$TSK6 = 050504 26714 2680 26884 26924 2697 31734 3175 38094 38134 3815 43264 43284 4330 
43348 4337 52954 5299H 5304 
$TSK7 = 050506 26764 2678 26894 2691 26934 2696 38104 3812 52964 5298 5300# 5303 
SSARGC= 000000 17304 
S$BYTE= 000405 1730# 25454 26064 26084 26134 26654 2667# 26694 2670# 26714 26764 26874 
2689% 26934 27008 27224 27234 272468 27254 27264 27344 = 2739H = 2743H = 2750K = =—27554 
27578 27594 §=—2767H# = 77H = 2B11K = 283 28734 28814 29244 
30104 30224 30284 30364 30404 30414 30474 30634 30708 3§ 30844 
30954 4 31594 31614 31634 31 31674 31684 31724 3 31954 32 
32014 32054 32174 84 32194 32214 3250% 3 32874 32924 32948 
329 32974 33454 3349% 33504 33544 33574 33694 33754 33954 
34064 34298 34348 34864 35074 35154 35164 35244 35484 35684 35714 
35748 35914 3630 36444 36544 36714 36754 36794 
36954 37004 37014 37714 37764 37948 38 38074 38084 38094 38104 
38184 38464 38504 38534 38544 38554 38584 38614 38674 3 8 
39034 39074 39084 39094 39274 39354 39534 395 39944 40014 40114 40174 
40184 40504 40514 41274 41344 41524 41534 41634 42314 42374 42408 42728 
4275# 4289% 42984 43104 431 43204 43254 43514 43914 
4 44054 44544 45894 45934 46754 47154 4922 4932# 5067# 5089# 51044 
51094 51144 513504 5169% 52604 5285# 52884 5294 52954 53004 5307# 53104 
$$CASE= 000000 17304 
$$DST = 000000 


$$ELOC= 000402 
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36934 
3 
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SSERFL= 000000 
$$FLAG= 000001 


$$FROM= 000000 
$$LOC = 027006 


37004 
7964 


SEQ 0205 
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ALLOCA 17304 

BEGIN 1730# 3549 3551 4321 
BGNAU 4519 

BGNAUT 

BCNCLN 

BGNDU 


4650 4657 4664 
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78 


Ness 


4232 
3351 
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INLINE 1730# 
LASTAD 5542 
ee RS Be ae 
ae oe i 
72 $673 2674 
2788 79 27% 
2864 2865 28 
20 22 2 
23 24 29 
111 123 126 
174 181 207 
eu i 
3509 560 3563 
3623 = 3624 5 
3669 3670 v2 
369% 3=— 3696 3697 
3795 3797 = 33799 
3898 901 3902 
3992 993 3995 
4058 4061 4073 
4161 4162 4165 
4261 4262 4267 
4302 4306 4323 
4431 4491 4492 
4602 4605 4610 
4682 4 4686 
4918 4919 4920 
4951 4952 954 
5003 5012 5026 
5092 5093 094 
5121 5122 = 5123 
5164 5167 5172 
5216 5217 5218 
5256 6 5263s: 5267 
5316 3865317 =: 55337 
LOCAL 17 
LOOP 17 
4052 
MEMORY 4349 
MSBYTE 17754 
MSCHEC 25354 25544 41414 
MSCNTO 4059% 541 54114 
54 54654 54664 
54814 54824 54834 
MSCOUN 25244 2525 25344 
37024 837474 8637534 
41374 41488 41514 
45948 5 
MSDATA 17754 18064 18074 
MSDECR 18294 18874 18884 
45084 45514 4553# 
49084 50514 51504 
MSDEFA 4059% 54104 54114 
54644 54654 54664 


3g 
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Am SWwn 


Eat te 
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SSS 
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SSeS 
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ww 
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CZTUVB.P11 12-JUL-83 
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SSSETS 17304 263 
739 
77? 


rue 
™N 


Aa 
Wr 


SRO aWoW 


SAR 
Woo 


5260 
SSSETT 17304 


- ABS. 030700 000 


ERRORS DETECTED: 0 


CZTUVB, CZTUVB/CRF=SVC.SML/ML,SPMAC.SML/ML,CZTUVB.P11 
RUN-TIME: 149 152 10 SECONDS 

RUN-TIME RATIO: 347/312=1.1 

CORE USED: 31K (62 PAGES) 





